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