- #1
T
tobman112
Aktives Mitglied
Themenersteller
- Dabei seit
- 24.07.2005
- Beiträge
- 38
- Reaktionspunkte
- 0
- Ort
- Wanne-Eickel
Hallo Gemeinde,
ich habe im Internet ein VBA SKript zum Auslesen der Ereignisanzeige gefunden. Das funktioniert soweit auch sehr gut, ich würde es nur gerne in 2 Punkten angepasst haben:
a) Es soll nicht nur die Sparte System sondern auch Anwendungen auslesen
b) Es soll nicht die komplette Datei, sondern immer die Daten des Vortages ausgelesen werden.
Ziel ist es, die txt Datei täglich per Mail zu versenden.
Da ich ein totaler Neuling auf diesem Gebiet bin, bitte ich diese DAU-Fragen :1 zu entschuldigen.
Gruß
Tobman
-----
' 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 =->Security')
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
ich habe im Internet ein VBA SKript zum Auslesen der Ereignisanzeige gefunden. Das funktioniert soweit auch sehr gut, ich würde es nur gerne in 2 Punkten angepasst haben:
a) Es soll nicht nur die Sparte System sondern auch Anwendungen auslesen
b) Es soll nicht die komplette Datei, sondern immer die Daten des Vortages ausgelesen werden.
Ziel ist es, die txt Datei täglich per Mail zu versenden.
Da ich ein totaler Neuling auf diesem Gebiet bin, bitte ich diese DAU-Fragen :1 zu entschuldigen.
Gruß
Tobman
-----
' 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 =->Security')
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