»

[tschitscho]

Ich code wiedermal ein wenig rum und möchte ein tool zur einfacheren Serveradministrierung basteln. (Netzlaufwerke connecten, pingen, eventviewer überwachen usw.)
Da ich in der Bude keine schlaue Software habe, muss halt MS-Access 2003 herhalten. . .
Nur, wie kann ich die Werte des Eventviewers auslesen? (Ich brauche nur das Application -und Systemlog)

[hellcat]

MS-Access? warum nicht:
http://www.oracle.com/technology/pro.../xe/index.html
free & easy to use...

[tschitscho]

Das Problem ist, ich darf nichts installieren und hab' nicht mal die Berechtigung dazu, darum geht eigentlich nur Access

[hellcat]

ah, na dann mein herzliches beileid...
hier ein link zur eigentlichen frage:
Query the Event Log (VB.NET)

[tschitscho]

Danke das habich auch gefunden.
WSH wär allerdings auch noch ne Variante...

[voodoo]

beim scripten ist wohl wmi die schnittstelle deiner wahl.
hier ein beispielscript: http://www.softwarepoetry.com/downlo...entlog.vbs.txt
habe nicht geprüft ob und wie es funktioniert. falls du noch fragen zu wmi hast kann ich dir eventuell weiterhelfen.

[tschitscho]

So, um das Thema abzuschliessen, hier der Code den ich im VBA verwende:

Function getEventCacheUpdate(strComputer As String, strUsername As String, strPassword As String, intErrorNo As Integer)

Dim objWMIService As Object
Dim colLoggedEvents As Object
Dim objEvent As Object
Dim i As Integer
Dim FILTERED As Boolean
Dim dtmDate As String
Dim dtmTime As String
Dim dtmsTime As String
Dim dtmdatetime As String
Dim dtmTimeminus1minute As String
Dim DeinArrayMitEventTypeIntegers(0 To 1) As Integer

DeinArrayMitEventTypeIntegers(0) = 3
DeinArrayMitEventTypeIntegers(1) = 2

dtmDate = CDate(Date)
dtmTime = CDate(Time)
dtmDate = Year(dtmDate) & Right("00" & Month(dtmDate), 2) & Right("00" & Day(dtmDate), 2)
dtmsTime = Right("00" & Hour(dtmTime), 2) & Right("00" & Minute(dtmTime), 2) & Right("00" & Second(dtmTime), 2)
dtmsTimeminus1minute = Right("00" & Hour(dtmTime), 2) & Right("00" & (Minute(dtmTime) - 1), 2) & Right("00" & Second(dtmTime), 2)
dtmdatetime = dtmDate & dtmsTime
dtmsTimeminus1minute = dtmDate & dtmsTimeminus1minute & ".000000+120"

'*****************
'Beispielwerte
'strComputer = "s01b2sz7"

Set objSWbemLocator = CreateObject("WbemScripting.sWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, "\root\CIMV2", strUsername, strPassword, "MS_409", "NTLMDomain:" + strComputer)

' Set colLoggedEvents = objWMIService.ExecQuery("Select * from Win32_NTLogEvent WHERE Logfile = 'Application' And TimeWritten >='" & dtmsTimeminus1minute & "' AND Eventcode=" & intErrorNo)


For Each objEvent In colLoggedEvents
For i = LBound(DeinArrayMitEventTypeIntegers) To UBound(DeinArrayMitEventTypeIntegers)
If (objEvent.EventType = DeinArrayMitEventTypeIntegers(i)) Then FILTERED = True
Debug.Print "Category: " & objEvent.Category
Debug.Print "Computer Name: " & objEvent.ComputerName
Debug.Print "Event Code: " & objEvent.EventCode
Debug.Print "Message: " & objEvent.Message
Debug.Print "Record Number: " & objEvent.RecordNumber
Debug.Print "Source Name: " & objEvent.SourceName
Debug.Print "Time Written: " & objEvent.TimeWritten
Debug.Print "Event Type: " & objEvent.Type
Debug.Print "User: " & objEvent.User
getEventCacheUpdate = objEvent.Message
Next i
If Not FILTERED Then
End If
FILTERED = False
Next objEvent

End Function