Ich betrachte mich als Anfänger in VBS und habe viele Scripte, die ich im WWW fand schon ausprobiert. Durch Kombination zweier Scripte habe ich ein Script erstellt, daß mir die Logs der Ereignisanzeige ("System"), hier besonders 6006, 6008, 6009 - also Systemstart, Shutdown und Absturz in eine Datei schreiben soll. Für jede Event-ID eine.
Es werden zwar Lösungen mit Echo und MsgBox angeboten, aber da drückt man sich die Finger wund. Mir wäre es lieber, die Meldungen in eine Logdatei zu schreiben. Leider funktioniert das nur mit einem Parameter in der For Each .. Next-Schleife. Wie kann ich alles, was die MSgBox anzeigt, auch in eine Logdatei bekommen ?
Es wäre schön, wenn mir da jemand helfen könnte...
Beste Grüße
Micha
Es werden zwar Lösungen mit Echo und MsgBox angeboten, aber da drückt man sich die Finger wund. Mir wäre es lieber, die Meldungen in eine Logdatei zu schreiben. Leider funktioniert das nur mit einem Parameter in der For Each .. Next-Schleife. Wie kann ich alles, was die MSgBox anzeigt, auch in eine Logdatei bekommen ?
Quellcode
- strComputer = "." ' Dieser Computer
- ' Retrieving Specific Events from an Event Log
- textFilePath = "6008.txt"
- set objFSO = createobject("Scripting.FileSystemObject")
- set objTextFile = objFSO.CreateTextFile(textFilePath)
- Set objWMIService = GetObject("winmgmts:" _
- & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
- Set colLoggedEvents = objWMIService.ExecQuery ("Select * from Win32_NTLogEvent Where Logfile = 'System' and " & "EventCode = '6008'")
- txt=""
- For Each objEvent in colLoggedEvents
- MsgBox "Ereignisdatum: " & objEvent.TimeGenerated & vbCrLf & "Beschreibung: " & objEvent.Message ' <--- DAS FUNKTIONIERT
- objTextFile.WriteLine "Ereignisdatum: " & objEvent.TimeGenerated & vbCrLf & "Beschreibung: " & objEvent.Message ' <-- DAS NICHT !!
- ' txt=txt & " Beschreibung: " & objEvent.Message & vbcrlf ' .Message funktioniert NICHT
- txt=txt & "Ereignisdatum: " & objEvent.TimeGenerated & vbcrlf ' .TimeGenerated funktioniert
- Next
- objTextFile.WriteLine(txt)
- Wscript.Echo "Unerwartete Shutdowns: " & colLoggedEvents.Count
- objTextFile.Close
Es wäre schön, wenn mir da jemand helfen könnte...
Beste Grüße
Micha