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

260 阅读 0 评论 172 点赞

我是靠谱客的博主义气冬天，最近开发中收集的这篇文章主要介绍利用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 & "'" 