[Code] VB Script Eventlog auslesen --> Help !

Mrt2006 · 17. November 2008

VB Script Eventlog auslesen --> Help !

Hey leute.

also ich habe Probleme mit einer Aufgabenstellung ^^
Es geht darum das ich beim Windows Eventlog einen Event auslesen soll und mir den in eine Textdatei ausgeben lassen soll. Soweit war das auch noch einfach.

Vielleicht zur Klärung warum ich das mache Es geht darum das mein Backup Programm mir keinen Status eines Backups per Email senden kann. Sprich ich bekomme nicht unbedingt mit, dass er überhaupt was gemacht hat. Daher habe ich mit dem Windows Eventtriger was hingebastelt, sodass ich immer eine Email bekomme, wenn die Application gebackuped hat ....

Schön und gut ^^ jedoch bekomme ich nie die Beschreibung mit zugesandt, sprich ich weiß jetzt, dass er was gemacht hat, aber ob es erfoglreich war oder fehlgeschlagen ist, kann ich nur erahnen. Daher musste ein kleines Script her.

Code:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "\\" & strComputer & "\root\cimv2")
 
Set colLoggedEvents = objWMIService.ExecQuery _
 ("Select * from Win32_NTLogEvent Where EventCode=4101")
 
For Each objEvent In colLoggedEvents
 WScript.Echo "Category: " & objEvent.Category
 WScript.Echo "Computer Name: " & objEvent.ComputerName
 WScript.Echo "Event Code: " & objEvent.EventCode
 WScript.Echo "Message: " & objEvent.Message
 WScript.Echo "Record Number: " & objEvent.RecordNumber
 WScript.Echo "Source Name: " & objEvent.SourceName
 WScript.Echo "Time Written: " & objEvent.TimeWritten
 WScript.Echo "Event Type: " & objEvent.Type
 
Next

jetzt listet das Script mir jeden Event auf mit der TID 4101. Sprich ich nähere mich meinem Problem.
Jedoch bleiben noch ein paar Probleme. Das Script ist sozusagen ein Selbstläufer ^^ meine Textdatei die ich mir dann immer ausgebe, wird größer und größer ....

Jetzt die Frage die ich habe, wie kann ich das Script umbasteln, sodass ich immer nur den neusten Event von der TID 4101 bekomme ?
Damit sich mal jemand nen Bild davon machen kann wie meine ausgabe aussieht, btw bei mir sieht es schöner aus, also eingerückt usw. ^^

Record Number: 157
Source Name: AdsmClientService
Time Written: 20081116123615.000000+060
Event Type: Informationen
Computer Name: *******
Event Code: 4101
Message: Backup/Archive Statistics for Schedule Backup SCHED1201 :

-----------------------------------------------------------------------------

Gesamtzahl gepr�fter Objekte: 2.458

Gesamtzahl gesicherter Objekte: 2.445

Gesamtzahl aktualisierter Objekte: 0

Gesamtzahl erneut gebundener Objekte: 0

Gesamtzahl gel”schter Objekte: 0

Gesamtzahl verfallener Objekte: 0

Gesamtzahl fehlgeschlagener Objekte: 0

Gesamtzahl �bertragener Byte: 468,54 MB

Daten�bertragungszeit: 1.617,47 Sek

Daten�bertragungsgeschwindigkeit im Netz: 296,62 KB/Sek

Daten�bertragungsgeschwindigkeit Gesamt: 289,34 KB/Sek

Objekte komprimiert um: 0%

Verarbeitungszeit: 00:27:38
-----------------------------------------------------------------------------

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider tappe ich echt im dunkeln gerade ...

Hoffe mir kann jemand helfen...
bw ist klar !
greeze Mrt2006

Anzeige

naca7 · 18. November 2008

AW: VB Script Eventlog auslesen --> Help !

naja also dein problem ist ja dass du dir mit der query alle Einträge für diesen Prozess rausholst. Windows wird vmtl. auch alle Einträge während einer Sitzung da reinschreiben. Eine Möglichkeit wäre jetzt das Query so umzuformulieren dass du immer nur den neuesten Eintrag bekommst, also zum beispiel in die richtung:

("Select * from Win32_NTLogEvent Where EventCode=4101 ORDER BY id DESC LIMIT 1")
du bekommst so immer nur das Event mit der höchsten ID (ich weiß nicht wie die primärschlüsseltabelle hier heißt, ordne einfach danach!) und holst dir über das LIMIT nur das erste objekt raus!

hoffe du kennst dich aus was ich mein, ansonsten einfach ne pm oder so ;-)

Mrt2006 · 18. November 2008

AW: VB Script Eventlog auslesen --> Help !

also habe es wie folgt gemacht ... und so funktiert es einwandfrei !!!

dim last_Category
dim last_ComputerName
dim last_EventCode
dim last_Message
dim last_RecordNumber
dim last_SourceName
dim last_TimeWritten
dim last_Type

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "\\" & strComputer & "\root\cimv2")

Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where EventCode=4101")

last_TimeWritten = ""

For Each objEvent In colLoggedEvents
if last_TimeWritten < objEvent.TimeWritten then
last_Category = objEvent.Category
last_ComputerName = objEvent.ComputerName
last_EventCode = objEvent.EventCode
last_Message = objEvent.Message
last_RecordNumber = objEvent.RecordNumber
last_SourceName = objEvent.SourceName
last_TimeWritten = objEvent.TimeWritten
last_Type = objEvent.Type
end if
Next

WScript.Echo "Category: " & last_Category
WScript.Echo "Computer Name: " & last_ComputerName
WScript.Echo "Event Code: " & last_EventCode
WScript.Echo "Message: " & last_Message
WScript.Echo "Record Number: " & last_RecordNumber
WScript.Echo "Source Name: " & last_SourceName
WScript.Echo "Time Written: " & last_TimeWritten
WScript.Echo "Event Type: " & last_Type

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

naca7 · 18. November 2008

AW: VB Script Eventlog auslesen --> Help !

ah ok, jo ist im prinzip durch die last_time_written abfrage genau das gleiche, so läufst du halt alle immer wieder durch! würde man das query so umändern hättest du immer nur genau 1 objekt also immer genau das aktuellste! problem ist halt dabei dass du nicht alle events logst ... =)

Nützliche Suchen

[Code] VB Script Eventlog auslesen --> Help !

Videos zum Themenbereich