[系统相关] 请教写一个监控进程的批处理

WilSon123

请问：
我想做一个进程监控的批处理。
批处理怎么监控进程阿。
比如：
进程A.exe已启动两个，PID号也是不同，我只想它能监控启动的两种情况：两个进程中死了一个，或者两个进程中某个进程的状态不是正在运行，就重新启动指定路径的程序

czjt1234

Option Explicit
Dim oWMI, oFSO, oWshShell, oSWbemEventSource, s

Const FILE = "C:\Program Files\abc\A.exe"    '要监视的程序

Set oWMI = GetObject("Winmgmts:\\.\Root\Cimv2")
oWMI.Security_.Privileges.Add 19    'SeDebugPrivilege
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWshShell = CreateObject("WScript.Shell")

s = "SELECT * FROM __InstanceModificationEvent WITHIN 1 "         & _
    "WHERE TargetInstance ISA 'Win32_Process' "                   & _
    "AND TargetInstance.Name = '" & oFSO.GetFileName(FILE) & "' " & _
    "AND TargetInstance.Status <> 'OK'"

Set oSWbemEventSource = oWMI.ExecNotificationQuery(s)

Do
    Set s = oSWbemEventSource.NextEvent()
    s.TargetInstance.Terminate()
    oWshShell.Run """" & FILE & """"
Loop
复制代码

vbs
不知道怎么模拟卡死的进程，所以未测试

Batcher

回复 1# WilSon123


    两个进程对应的“指定路径的程序”是同一个吗？