VBS脚本检测Start.bat运行状态误判问题求助

我帮你分析下问题根源——你的脚本之所以误判，是因为批处理文件本身并不是独立进程：当你运行Start.bat时，实际是由cmd.exe进程托管执行的，Win32_Process里根本不会出现名为Start.bat的进程，你原来的查询条件自然无法正确识别目标，甚至可能因为条件不全误匹配了其他进程。

下面是修正后的完整解决方案：

核心思路：通过查找cmd.exe进程，并检查它的命令行参数中是否包含你的批处理文件名（或完整路径），来判断Start.bat是否在运行。

方案1：匹配批处理文件名（适合简单场景） #

这个方案会检查所有cmd.exe进程的命令行，只要包含Start.bat就算运行中：

Set WshShell = WScript.CreateObject("WScript.Shell")
Set locator = CreateObject("WbemScripting.SWbemLocator")
Set service = locator.ConnectServer()

Do
    ' 查询所有命令行包含Start.bat的cmd.exe进程
    Set processList = service.ExecQuery( _
        "SELECT * FROM Win32_Process WHERE Name='cmd.exe' AND CommandLine LIKE '%Start.bat%'" _
    )
    
    If processList.Count = 0 Then
        ' 未找到目标进程，启动批处理
        ' 替换成你的Start.bat实际路径，三重引号用于处理带空格的路径
        WshShell.Run """C:\你的路径\Start.bat""", 0, False
        ' 0表示后台运行，False表示不等待批处理执行结束
        WScript.Echo "已启动Start.bat" ' 调试用，正式环境可删除
    End If
    
    WScript.Sleep 5000 ' 每隔5秒检查一次，可按需调整（单位：毫秒）
Loop

方案2：匹配完整路径（更精准，避免误判） #

如果你的系统中可能存在其他cmd.exe进程碰巧包含Start.bat字符串，建议用完整路径匹配（比如批处理在D:\Task\Start.bat）：

Set WshShell = WScript.CreateObject("WScript.Shell")
Set locator = CreateObject("WbemScripting.SWbemLocator")
Set service = locator.ConnectServer()

Dim batPath
batPath = "D:\Task\Start.bat" ' 替换成你的批处理实际路径

Do
    ' WQL中反斜杠需要转义，所以用Replace处理路径
    Set processList = service.ExecQuery( _
        "SELECT * FROM Win32_Process WHERE Name='cmd.exe' AND CommandLine LIKE '%" & Replace(batPath, "\", "\\") & "%'" _
    )
    
    If processList.Count = 0 Then
        WshShell.Run """" & batPath & """", 0, False
        WScript.Echo "已启动Start.bat"
    End If
    
    WScript.Sleep 5000
Loop

关键细节说明： #

• 为什么用CommandLine？Win32_Process的Name字段是进程的可执行文件名（比如cmd.exe），批处理本身不会作为独立进程存在，只能通过宿主进程的命令行参数识别。
• 路径转义：WQL中反斜杠是特殊字符，必须用Replace转成双反斜杠才能正确匹配路径。
• 三重引号：如果批处理路径包含空格，必须用引号包裹，VBS中通过"""路径"""实现字符串转义，实际传递给系统的是带一对引号的路径。
• 循环间隔：不要设置过小（比如100毫秒），会占用过多系统资源，5-10秒是比较合理的检查间隔。

内容的提问来源于stack exchange，提问作者Maxim