VBScript 監(jiān)控并結(jié)束指定進(jìn)程的代碼
代碼（monprocess.vbs）：
On Error Resume Next
strComputer = "."
arrTargetProcs = Array("calc.exe", "notepad.exe", "other.exe")
'數(shù)組里為要監(jiān)視的進(jìn)程名
Set SINK = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
objWMIService.ExecNotificationQueryAsync SINK, _
"SELECT * FROM __InstanceCreationEvent WITHIN 1 " & _
"WHERE TargetInstance ISA 'Win32_Process'"
Wscript.Echo "Are monitoring processes ..."
Do
WScript.Sleep 1000
Loop
'***************************************************************************
Sub SINK_OnObjectReady(objLatestEvent, objAsyncContext)
'Trap asynchronous events.
For Each strTargetProc In arrTargetProcs
If LCase(objLatestEvent.TargetInstance.Name) = LCase(strTargetProc) Then
intReturn = objLatestEvent.TargetInstance.Terminate
If intReturn = 0 Then
Wscript.Echo "Time: " & Now & ", Succeed!" & chr(9) & _
"Name: " & objLatestEvent.TargetInstance.Name
Else
Wscript.Echo "Time: " & Now & ", Failed!" & chr(9) & _
"Name: " & objLatestEvent.TargetInstance.Name
End If
End If
Next
End Sub
原文：https://www.enun.net/?p=2385
相關(guān)文章
用vbs檢測Internet Explorer 中是否啟用了 ActiveX
用vbs檢測Internet Explorer 中是否啟用了 ActiveX...2007-03-03
Adsutil.vbs 是一個 IIS 管理實用程序，它通過結(jié)合使用 Microsoft Visual Basic Scripting Edition (VBScript) 與 Active Directory 服務(wù)界面 (ADSI) 來處理 IIS 配置。該腳本應(yīng)通過隨 Windows 腳本主機(jī)一同安裝的 CScript 運(yùn)行2014-07-07
這篇文章主要介紹了使用 Iisftp.vbs 啟動FTP站點的方法,需要的朋友可以參考下2014-07-07
VBS教程：函數(shù)-IsDate 函數(shù)...2006-11-11
VBS教程：VBscript屬性-Description 屬性
VBS教程：VBscript屬性-Description 屬性...2006-11-11
VBS教程：方法-GetTempName 方法...2006-11-11
這篇文章主要介紹了vbs重啟TP-Link路由器示例,需要的朋友可以參考下2014-04-04
VBS調(diào)用Photoshop批量生成縮略圖的代碼
這篇文章主要為大家分享了通過vbs調(diào)用Photoshop批量生成縮略圖，需要的朋友可以參考下2013-12-12
VBS教程：正則表達(dá)式簡介 -非打印字符...2006-11-11
VBS教程：運(yùn)算符-And 運(yùn)算符...2006-11-11