求一个vbs命令，判断某程序是否启动成功的命令，如果判断该程序启动成功则退出vbs脚本，如果判断该程序没有启动，则重新启动计算机

Question

求一个vbs命令，情况是这样的，每次电脑开机5分钟后，通过win7计划任务启动该vbs脚本。
目的是判断程序BstkSVC.exe是否启动成功，如果判断BstkSVC.exe启动成功则退出vbs脚本，如果判断BstkSVC.exe没有启动，则重新启动计算机。
求详细命令

Answer 1

望采纳！！！点击回答右侧采纳即可！！

' 定义程序名
programName = "程序.exe"

' 循环检测程序是否启动成功
Do
    ' 检测程序是否启动
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colProcess = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = '" & programName & "'")
    If colProcess.Count = 0 Then
        ' 程序未启动
        WScript.Echo "程序未启动，重新启动计算机"
        Set objShell = CreateObject("WScript.Shell")
        objShell.Run "shutdown -r -t 0", 0, True
    Else
        ' 程序已启动
        WScript.Echo "程序已启动"
        WScript.Quit
    End If
    ' 每隔一段时间检测一次
    WScript.Sleep 5000
Loop