话不多说，我直接贴代码：
dim wmi,proc,procs,proname,flag,WshShell
Do
proname="isearch.5069.exe" '需要监测的服务进程的名称，自行替换这里的记事本进程名
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\.rootcimv2")
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
...
