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