Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

WMI Prozessänderungen
Autor: diazazel
Datum: 08.12.04 16:51
Hallo Leute, ich hab in deinem Scriptingbuch einen Code entdeckt, der die Veränderungen sämtlicher Unterprozesse von Explorer anzeigt. Dieser Code funktioniert bei mir. Allerdings möchte ich nicht die Veränderungen von den Prozessen des Exploreres angezeigt bekommen, sondern selbst ausgewählte. Ich sitz nun schon ne Weile dran und komm nicht weiter. Hat von euch vielleicht jemand eine Ahnung wie ich einen bestimmten Prozess abfragen kann, wann er endet und wann er gestaret wird? Vielen Dank! Viele Grüße Micha Hier der Code: Klasse = "Win32_Process" set Eventlauscher = WScript.CreateObject("WBEMScripting.SWBEMSink", "event_") set locator = CreateObject("WbemScripting.SWbemLocator") set service = locator.ConnectServer() set explorerinstances = service.ExecQuery("select * from Win32_process where Name = 'explorer.exe'") 'ID herauspicken for each inst in explorerinstances explorerprogid = inst.Handle next call EventAbhoeren("Select * from __InstanceDeletionEvent within 1.5 where TargetInstance ISA '" & Klasse & "' and TargetInstance.ParentProcessID=" & explorerprogid, "Prg Stop") call EventAbhoeren("select * from __InstanceCreationEvent within 1.5 where TargetInstance ISA '" & KLasse & "' and TargetInstance.ParentProcessID=" & explorerprogid, "Prg Start") MsgBox "Eventüberwachung abschlaten", vbSystemModal function EventAbhoeren(Eventanforderung, Zusatzdaten) 'aktiviert die Eventüberwachung call service.ExecNotificationQueryAsync(Eventlauscher, Eventanforderung, "WQL", 0, null, EventDaten(Zusatzdaten)) end function function EventDaten(InfoObject) 'fügt Daten über den Ursprung des Events hinzu set Zusatzinfos = CreateObject("WbemScripting.SWbemNamedValueSet") call Zusatzinfos.Add("data", InfoObject) set EventDaten = Zusatzinfos end function function Eventhandler(objObject, objAsyncContext) 'wird aufgerufen, wenn Event feuert set EventInformationen = objAsyncContext.Item("data") MsgBox EventInformationen.Value & ": " & objObject.TargetInstance.PATH_, vbSystemModal end function sub event_OnObjectReady(objObject, objAsyncContext) 'wird ausgelöst, wenn einer der abgehörten Events ausgelöst wird call Eventhandler(objObject, objAsyncContext) end sub

WMI Prozessänderungen	1.281	diazazel	08.12.04 16:51
Re: WMI Prozessänderungen	996	Elwood	08.12.04 17:58
Re: WMI Prozessänderungen	1.010	diazazel	09.12.04 08:59
Re: WMI Prozessänderungen	905	diazazel	09.12.04 09:42
Re: WMI Prozessänderungen	870	Elwood	09.12.04 10:21
Re: WMI Prozessänderungen	934	diazazel	09.12.04 11:06
Re: WMI Prozessänderungen	954	Elwood	09.12.04 18:00
Re: WMI Prozessänderungen	954	diazazel	10.12.04 14:06

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen