利用VBS脚本实现进程守护功能

主要生产的时候会遇到一些需要此功能的时候,下面是代码:

  1. option Explicit
  2. dim wmi,proc,procs,proname,flag,WshShell,sCheck
  3. Do
  4. proname=”lesopay.com” ‘需要监测的服务进程的名称,自行替换这里的记事本进程名
  5. set wmi=getobject(“winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2”)
  6. set procs=wmi.execquery(“select * from win32_process”)
  7. flag=true
  8. for each proc in procs
  9. if strcomp(proc.name,proname)=0 then
  10. flag=false
  11. exit for
  12. end if
  13. next
  14. set wmi=nothing
  15. if flag then
  16. Set WshShell = Wscript.CreateObject(“Wscript.Shell”)
  17. WshShell.Run (“C:\lesopay.com\lesopay.com”) ‘监测的服务进程被关闭,要再次启动的时候程序的路径
  18. end if
  19. sCheck=5 ‘检测间隔时间,这里是5秒
  20. wscript.sleep sCheck*1000
  21. loop
乐搜社区是一个提供免费资源下载的优秀网站社区
乐搜社区 » 利用VBS脚本实现进程守护功能

发表评论