另存为.vbs
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