Eventlog aktuellsten Event auslesen

Set objWMIService = GetObject("winmgmts:" & "\\" & "localhost" & "\root\cimv2")  

Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent")  
anzahl = colLoggedEvents.Count

For Each objEvent In colLoggedEvents

    last_Message =  objEvent.Message & "von: " & objEvent.TimeWritten   
    if last = anzahl-1 then
    wscript.echo last_Message

    end if
    last = last+1
Next

Set objWMIService = GetObject("winmgmts:" & "\\" & "localhost" & "\root\cimv2")  

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

For Each objEvent In colLoggedEvents
    last_Message =  objEvent.Message & "von: " & objEvent.TimeWritten   
Next
 wscript.echo last_Message

strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  

Set objInstalledLogFiles = objWMIService.ExecQuery _
    ("Select * from Win32_NTEventLogFile Where LogFileName = 'Application'")  
' als erstes mal schauen wieviel Sätze da dümpeln im ApplLog...  
' Hier sollte e i g e n t l i c h immer EIN 'Application'-Logfile herauskommen... *g  

For Each objLogfile in objInstalledLogFiles
    ' für das eine von einem Application-Logfile tue...  
    intApplLogRecords = objLogFile.NumberOfRecords
    wscript.echo "Logfile " & chr(34) & objLogFile.LogFilename & chr(34) & _   
     "  #  " & objLogFile.NumberOfRecords & _   
           " Zuletzt geändert: " &  objLogFile.LastModified   
     ' Achtung: lastModified wird NICHT gesetzt, sobald neue Events da sind.  
     ' Sondern wenn die Datei "zur Ruhe kommt" ... beim Runterfahren!!!  
     ' wer seinen Rechner Tag & Nacht anhat, der kann NICHT gegen dieses Datum prüfen  
     ' sprich: Abfragen "Hole mir den Eintrag mit dem Lastmodified-Timestamp"  
     ' In den einzelnen Events -siehe unten- ist auch jeweils ein "TimeWritten-Datum" .  
     ' Aber das des neuesten Events ist NICHT unbedingt gleich diesem Modified-Datum  
     ' [anmerk] Halt Shice programmiert. [/anmerk]  
Next 


' jetzt mal schauen, wie im ApplLog die einzelnen Events aussehen  
' Strategie: ALLE Sätze holen... nur den ersten lesen   
' Zeitlich-chronologische Reihenfolge ist (garantiert?)  "Neueste zuerst"  
' jedenfalls auf allen Rechnern, mit denen ich getestet habe  

Set colLoggedEvents = objWMIService.ExecQuery _
       ("Select * from Win32_NTLogEvent Where Logfile = 'Application'" )  
      ' hole alle Einträge des EventLogs "Application" (optimistisch: eines)  
For Each objEvent In colLoggedEvents
    Wscript.echo "Neuester ApplLog-Record: "&  objEvent.RecordNumber & _   
                   " Time Written    : " & objEvent.TimeWritten & _   
                   " EventCode:  " & objEvent.EventCode & _   
                   " Source: " & objEvent.SourceName  
    ' wenn der erste Record auch der neueste ist, dann steht der älteste am Ende  
    ' und dann kann ich den berechnen... aktuelle Satznr abzgl. AnzahlAlle plus 1  
    oldestApplRec = objEvent.RecordNumber - intApplLogRecords + 1
    ' De-Comment bei Bedarf & Langeweile    WScript.Echo objEvent.getObjectText_  
    Exit for
Next


' Und eine gezielte Abfrage hinterher...nur den ältesten  
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent " & _   
 "Where Logfile = 'Application' and RecordNumber = " & oldestApplRec )  
For Each objEvent in colLoggedEvents
    ' für jeden einen Satz von einem einzigen Satz tue...*gg  
    Wscript.echo "Ältester ApplLog-Record: "&  objEvent.RecordNumber & _   
                   " Time Written    : " & objEvent.TimeWritten & _   
                   " EventCode: " & objEvent.EventCode & _   
                   " Source: " & objEvent.SourceName  
    ' Bei Bedarf & Langeweile:    WScript.Echo objEvent.getObjectText_  
Next

Wscript.quit ' so genannte Reissleinenprogrammierung  
'-------------------------------hier is' sich Ende ---  

' bei Bedarf auch die gewünschten Details formatiert anzeigen.  
' dann bitte bedienen aus der momentan unerreichbaren FOR-Next-Konstruktion unten  
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  
    Wscript.Echo "User: " & objEvent.User  
Next

>e:\schnipsel\GetLastLogEvent.vbs
Logfile "Application"  #  1345 Zuletzt geändert: 20100601220546.211425+120
Neuester ApplLog-Record: 12919 Time Written    : 20100603164706.000000+120 EventCode:  257 Source: McLogEvent
Ältester ApplLog-Record: 11575 Time Written    : 20100202203707.000000+060 EventCode: 1904 Source: HHCTRL