进程保护，发现没有指定程序进程立即启动

Dim program,path '声明变量
program="'EasyCHM.exe'" '赋值给变量
path="I:\电子书\EasyCHM\EasyCHM.exe"
strComputer = "." 'wmi中指本机
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")'创建对象

do'循环
Set colProcessList = objWMIService.ExecQuery _
   ("Select * from Win32_Process Where Name = "&program)'查询名为指定名称的进程

If colProcessList.Count = 0 Then'如果返回0查询不到指定进程
   Set shell = createobject("wscript.shell")'创建对象
   shell.run path,12'运行它
else'如果查询到指定名称的进程来检查它的路径防止假冒
   For Each objProcess in colProcessList
        If Trim(objProcess.CommandLine)<>""""&Trim(path)&"""" Then
         objProcess.Terminate()'如果执行名与指定不符中止它
         Set shell = createobject("wscript.shell")'运行指定程序
         shell.run path
      End If
   Next
End If
wscript.sleep 5000*60'休息5秒*60
Loop'继续循环