vbsで書かれた遅延を利用して、ieプロセスのスクリプトコードを閉じます。

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