' Region Description
'
' Name:
' Author:		Gerhard Kuklau
' Version:		0.1
' Description:	xxx
' 
' Powered by SystemScripter 6.0	  http://www.scriptinternals.de
' EndRegion
 
 
' List All Events from an Event Log
' supported on: Windows NT 4.0, Windows 2000, Windows XP, Windows Server 2003
' not supported on: Windows 9x
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "\\" & strComputer & "\root\cimv2")
 
Set colLoggedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent Where Logfile = 'Application'")
 
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

cscript DiesesScript.vbs > Ausgabe.txt

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell