VBS判断某个进程是否启动

以百度hi进程为例：
'═════代═══码═══开═══始═════
on error resume next
set y=getobject("winmgmts:\\.\root\cimv2")
set ws=createobject("wscript.shell")
set x=y.execquery("select * from win32_process where name='BaiduHi.exe'") 
for each i in x
     msgbox "BaiduHi进程存在"
     wscript.quit
next
msgbox "BaiduHi进程不存在"
'═════代═══码═══结═══束═════