运行效果图:
代码(monprocess.vbs):
复制代码 代码如下:
On Error Resume Next
strComputer = "."
arrTargetProcs = Array("calc.exe", "notepad.exe", "other.exe")
'数组里为要监视的进程名
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
您可能感兴趣的文章:
- vbs定期监控 值个班,定期瞄一下
- 磁盘IO利用率监控VBS脚本(windows)
- VBScript 监控磁盘更改事件实现代码
- VBS监控CPU的使用率(如占用率一直维持在80%超过30秒则运行某程序)
- 网络接口利用率监控VBS脚本代码(Windows)
- 进程监控实现代码[vbs+bat]
- 用VBS调用程序并对程序的运行情况进行监控的两个代码
- 如何使用vb 监控电脑活动记录
本文由 华域联盟 原创撰写:华域联盟 » VBScript 监控并结束指定进程的代码
转载请保留出处和原文链接:https://www.cnhackhy.com/16493.htm