
CODE: [Copy to clipboard]Set Ws = CreateObject("WScript.Shell")
Dim Wmi, Proc, Info, Flag, Target
Target = "calc.exe"
Flag = False
Set Wmi = Getobject("Winmgmts:")
Do
Set Proc = Wmi.Execquery("Select * From Win32_Process")
For Each Info In Proc
If Info.Name = Target Then Flag = True
Next
If Flag = False Then
Ws.Run Target
End If
Flag = False
Wscript.Sleep 1000
Loop
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |