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