利用vbs寫的延時關(guān)閉ie進程的腳本代碼

    windows 利用vbs 寫的延時關(guān)閉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 & "'"
    將上面保存為 1.vbs 運行方法，在cmd 里面 cscript 1.vbs 看效果