strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "\\" & strComputer & "\root\cimv2")
 
Set colLoggedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent Where Logfile = 'Application'")
 
Dim Filter
Filter = Array("Fehler", "Informationen")
 
For Each objEvent In colLoggedEvents
   If objEvent.Type <> Filter() Then
      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
  End If
Next