Kill Process
Dass folgende kleine Script erlaubt es, "Produktionsbremsen", die den Rechner nach dem Systemstart mit einer Systemlast von 100% ausbremsen, einfach abzuschiessen.
Ein weiterer (viel interessanter) Punkt ist natürlich, vor der Installation eines neuen SW-Paketes relevante Prozesse zu beenden, um die Installation erfolgreich durchführen zu können.
'On Error Resume Next
strComputer = "."
PID = 0
set objWSHShell = CreateObject("WScript.Shell")
Do
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
If PID = 0 Then
For Each objItem in colItems
ra = objItem.Caption
' Hier einfach den Namen des Prozesses angeben.
if Instr(1, ra, "Prozessname.exe") then
PID = objItem.ProcessId
objItem.terminate
End If
WScript.Sleep 5
Next
Else
Exit Do
end If
Loop