Hiho,

habe ein kleines Problem. Und zwar schreibe ich gerade ein kleines Programm, um die Ereignissprotokolle auf mehreren Computern lokal wegzusichern und danach zu löschen.

Nun gut, das klappt auch soweit mit der Application Log ... aber wie sieht es aus, wenn ich mehrere Betriebssysteme mit unterschiedlichen Logs habe?

Module Module1
    Private Declare Function BackupEventLog Lib "advapi32.dll" Alias "BackupEventLogA" (ByVal hEventLog As Integer, ByVal lpBackupFileName As String) As Integer
    Private Declare Function CloseEventLog Lib "advapi32.dll" (ByVal hEventLog As Integer) As Integer
    Private Declare Function OpenEventLog Lib "advapi32.dll" Alias "OpenEventLogA" (ByVal lpUNCServerName As String, ByVal lpSourceName As String) As Integer
    Private Declare Function ClearEventLog Lib "advapi32.dll" Alias "ClearEventLogA" (ByVal hEventLog As Integer, ByVal lpBackupFileName As String) As Integer


    Sub Main()
        Dim hEventLog As Integer
        Dim lretv As Integer

        hEventLog = OpenEventLog(vbNullString, "Application")
        If hEventLog = 0 Then
            Debug.Print("OpenEventLog Failed")
            Exit Sub
        End If

        lretv = BackupEventLog(hEventLog, "appslog.evt")
        If lretv = 0 Then
            Debug.Print("BackupEventLog Failed")
            Exit Sub
        End If

        lretv = ClearEventLog(hEventLog, vbNullString)
        If lretv = 0 Then
            Debug.Print("ClearEventLog Failed")
            Exit Sub
        End If

        lretv = CloseEventLog(hEventLog)
        If lretv = 0 Then
            Debug.Print("CloseEventLog Failed")
            Exit Sub
        End If
    End Sub

End Module

Gibt es eine Möglichkeit, dass er mir alle vorhandenen Logs unter jeweils einem anderen Namen speichert und dann löscht?

Wäre super danke für irgendwelche Ratschläge.

MfG Vice