VBScript 监控并结束指定进程的代码

代码（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 监控电脑活动记录

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！