日期:2014-05-20 浏览次数:21017 次
Dim count
count=0
For i=1  to 3
set y=getobject("winmgmts:\\.\root\cimv2")
set x=y.execquery("select * from win32_process where name='进程名'")
for each j in x 
count=count+1
next
wscript.sleep(1000)
i=i+1
Next
If count=0 Then 
    MsgBox "进程名启动失败"
Else 
    MsgBox    "进程名成功"
End If