请教写一个监控进程的批处理

WilSon123

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

Batcher

回复 1# WilSon123


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

czjt1234

1. Option Explicit
   
2. Dim oWMI, oFSO, oWshShell, oSWbemEventSource, s
   
3. 
   
4. Const FILE = "C:\Program Files\abc\A.exe"    '要监视的程序
   
5. 
   
6. Set oWMI = GetObject("Winmgmts:\\.\Root\Cimv2")
   
7. oWMI.Security_.Privileges.Add 19    'SeDebugPrivilege
   
8. Set oFSO = CreateObject("Scripting.FileSystemObject")
   
9. Set oWshShell = CreateObject("WScript.Shell")
   
10. 
    
11. s = "SELECT * FROM __InstanceModificationEvent WITHIN 1 "         & _
    
12.     "WHERE TargetInstance ISA 'Win32_Process' "                   & _
    
13.     "AND TargetInstance.Name = '" & oFSO.GetFileName(FILE) & "' " & _
    
14.     "AND TargetInstance.Status <> 'OK'"
    
15. 
    
16. Set oSWbemEventSource = oWMI.ExecNotificationQuery(s)
    
17. 
    
18. Do
    
19.     Set s = oSWbemEventSource.NextEvent()
    
20.     s.TargetInstance.Terminate()
    
21.     oWshShell.Run """" & FILE & """"
    
22. Loop

复制代码

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