判断某程序是否启动成功的命令，如果判断该程序启动成功则退出vbs脚本，如果判断该程序没有启动，则启动该程序

Question

判断某程序是否启动成功的命令，如果判断该程序启动成功则退出vbs脚本，如果判断该程序没有启动，则启动该程序

Answer 1

strComputer = "."
strProcess = "BstkSVC.exe"
 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & strProcess & "'")
 
If colProcessList.Count > 0 Then
    ' 程序已启动
    WScript.Quit
Else
    ' 程序未启动
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "BstkSVC.exe"
    objShell.Run "shutdown /r /t 0"
End If