我想用VBS检测A程序是否在运行 如果在就不执行A程序． 不在运行就执行A程序 然后这样一直自动循环

我想用VBS检测A程序是否在运行 如果在就不执行A程序． 不在运行就执行A程序 然后这样一直自动循环

A程序的路径在哪？自己输入吧，A程序的名称自己改一下。

Dim WMI,colProc,ProcName
Set wShell=CreateObject("Wscript.Shell")
Set WMI=GetObject("winmgmts:\\.\root\cimv2")
ProcName=InputBox("输入进程路径")
Do
Set colProc=WMI.ExecQuery("Select * From Win32_Process Where Name='A.exe'")
If colProc.Count=0 Then
wShell.Run ProcName
End If
WScript.Sleep 1000
Loop

set wshell=createobject("wscript.shell"):run=true set oexec=wshell.exec("ping www.baidu.com -n 1") do line=oexec.stdout.readline '只接收一个参数找到就退出循环 if instr(line,"timed out") then run=false:exit do loop until oexec.stdout.atendofstream if run then msgbox "网络畅通！",64,"网络检测结果" else msgbox "不通",16,"阳光告诉你"