VBS检测某进程，不存在则启动指定进程

风一样的男孩

1. option Explicit   
2.     dim wmi,proc,procs,proname,flag,WshShell   
3.     Do
4.     wscript.sleep 30000  
5.     proname="RunMe.exe"
6.     set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")   
7.     set procs=wmi.execquery("select * from win32_process")   
8.       flag=true   
9.     for each proc in procs   
10.         if strcomp(proc.name,proname)=0 then
11.           flag=false   
12.           exit for   
13.         end if   
14.     next   
15.       set wmi=nothing   
16.       if flag then   
17.         Set WshShell = Wscript.CreateObject("Wscript.Shell")
18.         WshShell.Run ("C:\Progra~1\HC\hCard\RunMeC~1\First.exe")
19.     end if   
20.     loop

复制代码

nx2008

这个还不错   学习了