首页 / 编程脚本 / 利用vbs写的延时关闭ie进程的脚本代码

复制代码 代码如下:
Delay = 5000
strComputer = "."

Set objWMIService = GetObject（"winmgmts:{impersonationLevel=impersonate}！\" & strComputer & " ootcimv2"）
Set objStartup = objWMIService.Get（"Win32_ProcessStartup"）
Set objConfig = objStartup.SpawnInstance_
Set objProcess = GetObject（"winmgmts:rootcimv2:Win32_Process"）
errReturn = objProcess.Create（"C:Program FilesInternet Exploreriexplore.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
看效果