求:w2k 结束CMD.EXE进程批处理,运行后自动识别进程里的CMD.EXE,并结束它。。。。。TASKKILL没用
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
strComputer = "."
arrTargetProcs = Array("程序名.exe")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process")
For Each objProcess in colProcesses
For Each strTargetProc In arrTargetProcs
If LCase(objProcess.Name) = LCase(strTargetProc) Then
intReturn = objProcess.Terminate
If intReturn = 0 Then
WScript.Echo "结束进程:"&objProcess.Name&" 成功"
Else
WScript.Echo "结束进程:"&objProcess.Name&" 失败"
End If
End If
Next
Next