Systemprozesse beenden

[anne_03 10]

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?

[phoenixcp 10]

Wenn du Systemprozesse "killen" willst, musst du über entsprechende Privilegien verfügen. Mit welchen Berechtigungen bist du angemeldet, bzw. läuft dein Script? Kannst du mit demselben Benutzer die Prozesse per Taskmanager "killen"? Oder bekommst du Fehlermeldungen ala "Zugriff verweigert"?