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










