m0_72807946 2023-01-12 13:50 采纳率: 75%
浏览 13
已结题

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

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

  • 写回答

1条回答 默认 最新

  • heart_6662 2023-01-12 16:53
    关注
    
    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
     
     
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 1月20日
  • 已采纳回答 1月12日
  • 创建了问题 1月12日

悬赏问题

  • ¥15 如何用Thoony写ESP32温湿度检测无源蜂鸣器报警代码?
  • ¥20 部件内部的CT图像数据集
  • ¥15 Visual studio调用动态库
  • ¥15 双目摄像头标定后的校准文件
  • ¥15 powerbi矩阵增加度量值后出现对应关系错乱
  • ¥30 频率分析法分析绘制奈奎斯特图、波特图
  • ¥15 弹出来一万个系统找不到指定的文件框框,怎么解决
  • ¥15 ADS生成的微带线为什么是蓝色空心的
  • ¥15 求一下解题思路,完全不懂
  • ¥15 tensorflow