求一个vbs命令，普通的判断程序启动命令。

Question

求一个vbs命令：
1、判断程序BstkSVC.exe是否启动成功，如果判断BstkSVC.exe没有启动，则重新启动计算机。
2、如果判断BstkSVC.exe启动成功则等待15分钟，然后再次判断BstkSVC.exe是否还在运行，如果还在运行则重启电脑，如果不运行则退出vbs脚本。

Answer 1

我给你写的代码如下

Set objWMIService = GetObject("winmgmts:")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name='BstkSVC.exe'")

If colProcessList.Count = 0 Then
  'BstkSVC.exe is not running, restart the computer
  Set objShell = CreateObject("WScript.Shell")
  objShell.Run "shutdown /r /t 0"
Else
  'BstkSVC.exe is running, wait for 15 minutes
  WScript.Sleep 900000
  
  Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name='BstkSVC.exe'")
  If colProcessList.Count > 0 Then
    'BstkSVC.exe is still running, restart the computer
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "shutdown /r /t 0"
  Else
    'BstkSVC.exe is not running, exit the script
    WScript.Quit
  End If
End If