Error Logs
‘ ‘****************************** ***
‘ Zjisti Errors z logu na stanicich z comps.txt
‘ ******************************* ***
‘ ******************************* ***
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set objInputFile = fso.OpenTextFile("comps.txt", 1, True)
Set objOutputFile = fso.OpenTextFile("vystup.txt", 8, True)
Set objInputFile = fso.OpenTextFile("comps.txt", 1, True)
Set objOutputFile = fso.OpenTextFile("vystup.txt", 8, True)
Do While objInputFile.AtEndOfLine <> True
strComputer = objInputFile.ReadLine
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = ‘System’ and " _
& "EventType = ‘1’")
("Select * from Win32_NTLogEvent Where Logfile = ‘System’ and " _
& "EventType = ‘1’")
For Each objEvent in colLoggedEvents
objOutputFile.Writeline "Category: " & objEvent.Category
objOutputFile.Writeline "Computer Name: " & objEvent.ComputerName
objOutputFile.Writeline "Event Code: " & objEvent.EventCode
objOutputFile.Writeline "Message: " & objEvent.Message
objOutputFile.Writeline "Record Number: " & objEvent.RecordNumber
objOutputFile.Writeline "Source Name: " & objEvent.SourceName
objOutputFile.Writeline "Time Written: " & objEvent.TimeWritten
objOutputFile.Writeline "Event Type: " & objEvent.Type
objOutputFile.Writeline "User: " & objEvent.User
Next
Loop
objOutputFile.Writeline "Category: " & objEvent.Category
objOutputFile.Writeline "Computer Name: " & objEvent.ComputerName
objOutputFile.Writeline "Event Code: " & objEvent.EventCode
objOutputFile.Writeline "Message: " & objEvent.Message
objOutputFile.Writeline "Record Number: " & objEvent.RecordNumber
objOutputFile.Writeline "Source Name: " & objEvent.SourceName
objOutputFile.Writeline "Time Written: " & objEvent.TimeWritten
objOutputFile.Writeline "Event Type: " & objEvent.Type
objOutputFile.Writeline "User: " & objEvent.User
Next
Loop