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 & "'"