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

2020-06-26 18:23:48

字体：大中小

来源：转载

供稿：网友

windows 利用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 & "'" 