Delay = 5000 
strComputer = "." 

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2") 
Set objStartup = objWMIService.Get("Win32_ProcessStartup") 
Set objConfig = objStartup.SpawnInstance_ 
Set objProcess = GetObject("winmgmts:root/cimv2:Win32_Process") 
errReturn = objProcess.Create("C:/Program Files/Internet Explorer/iexplore.exe http://www.jb51.cn", null, objConfig, PID) 
If errReturn = 0 Then 
WScript.Echo "Process ID is: " & PID 
End If 

wscript.sleep Delay 

Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where ProcessId = '" & PID & "'") 
For Each objProcess in colProcessList 
objProcess.Terminate() 
Next 
WScript.Echo "Close ProcessId = '" & PID & "'"