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