Question

VBS 如何判断指定进程是否存在？

H=InputBox("请输入映像名称:","进程查询","explorer.exe")
'这里还缺些什么？
Msgbox H&" 进程不存在"

Answer 1

对象winmgmts可提供系统的进程，以下仅供参考：
set rd=getobject("winmgmts:\\.") ' ":\\" 选择计算机地址 "."指本地计算机
set dl=rd.instancesof("win32_process") ' "instancesof("win32_process")"系统进程
HT=empty
for each r in dl
if r.name=H then ' ".name"单个进程的名称
HT=true
else
end if
next
'HT=true，进程存在，HT=empty，进程不存在.