Question

vbs检测进程

检测PowerRemind.exe这个进程,如果在,就把变量a=5,不在就退出,怎么搞.

Answer 1

set shell=createobject("wscript.shell")
set wshshell=wscript.createobject("wscript.shell")
set http=createobject("Microsoft.XMLHTTP")
M=0
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
if ps.name ="powerRemind.exe" then
M=M+1
wshshell.popup "powerRemind 已启动",1,"提示",4144
'exit for
WScript.Quit
end if
next
if M=0 then
a=5
wshshell.popup "a=" & a & "powerRemind 未启动",1,"提示",4144
end if