Mittwoch, 30. Dezember 2009

VBScript: Programme beenden

Mit VBScript können Programme nicht nur gestartet, sondern auch beendet werden.
Das Skript ist einfach. Wir legen den Namen des Programms fest, erschaffen uns ein Objekt zum weiteren Arbeiten und holen uns aus diesem Objekt eine Liste aller laufenden Prozesse.

Wir durchlaufen die Prozessliste in einer Schleife und vergleichen jeden Prozessnamen mit unserem gesuchten Programm. Zur Sicherheit führen wir den Vergleich durch nachdem wir alles auf Kleinschreibung gesetzt haben.

Bei jeder Übereinstimmung wird der entsprechende Prozess beendet. Da ein Programm mehrfach gestartet sein kann, durchlaufen wir die Liste vollständig und beenden jeden Prozess gesondert.
'-----------------------------------------Variablen setzen
 Programm    = "notepad.exe"

 
 '----------------------------------------nach Programm suchen
 set ergo = GetObject("winmgmts:") 
 set prozessliste = ergo.instancesOf("win32_process") 
 for each prozess in prozessliste 
    
    if lcase(prozess.name)=lcase(Programm) then 
        prozess.Terminate() 
    end if 
    
 next
Nur passen Sie bitte auf, die richtigen Prozesse zu beenden...

Keine Kommentare:

Kommentar veröffentlichen