风一样的男孩 发表于 2011-9-20 13:20:31

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

option Explicit   
    dim wmi,proc,procs,proname,flag,WshShell   
    Do
    wscript.sleep 30000
    proname="RunMe.exe"
    set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")   
    set procs=wmi.execquery("select * from win32_process")   
      flag=true   
    for each proc in procs   
      if strcomp(proc.name,proname)=0 then
          flag=false   
          exit for   
      end if   
    next   
      set wmi=nothing   
      if flag then   
      Set WshShell = Wscript.CreateObject("Wscript.Shell")
      WshShell.Run ("C:\Progra~1\HC\hCard\RunMeC~1\First.exe")
    end if   
    loop

nx2008 发表于 2011-11-4 16:01:12

这个还不错   学习了
页: [1]
查看完整版本: VBS检测某进程，不存在则启动指定进程