利用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