Hallo,
um mehrere laufende Prozesse (System) zu beenden wollte ich gerne dieses Script benutzen und dafür einen Task auf dem Server (W2003/SP3, BDC) starten lassen.
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "Server"
strProcessKill = "'prozess.exe'"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
' End of WMI Example of a Kill Process
Folgende Probleme:
1. Test des Scripts mit firefox.exe funktioniert. Der Prozess, den ich beenden will, läuft als Systemprozess und lässt sich nicht damit beenden. Warum nicht?
2. Diesen Prozess gibt es mehrmals. Ich müsste also auch herausfinden, wie viele gleichnamige Prozesse laufen und dann einen nach dem anderen beenden.
Diese Prozesse werden durch ein CADProgramm gestartet. Normalerweise sollten sich diese Prozesse beim Schließen des Programms mit beenden lassen. Warum sie das nicht mehr tun, konnte noch nicht geklärt werden. Deshalb die Suche nach einer Abhilfe.
Wie könnte man diese Prozesse sonst noch beenden?