批处理之家 - Powered by Discuz! Board

标题: [系统相关] 请教写一个监控进程的批处理 [打印本页]

作者: WilSon123 时间: 2024-12-9 15:14 标题: 请教写一个监控进程的批处理

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

作者: Batcher 时间: 2024-12-9 20:25

回复 1# WilSon123

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

作者: czjt1234 时间: 2024-12-10 10:22

本帖最后由 czjt1234 于 2024-12-10 10:32 编辑

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
不知道怎么模拟卡死的进程，所以未测试

欢迎光临批处理之家 (http://bbs.bathome.net/)

Powered by Discuz! 7.2