日期:2014-05-20 浏览次数:21008 次
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