Supportnet / Forum / Skripte(PHP,ASP,Perl...)
VISUAL BASIC .NET // Ereignissprotokolle sichern
Frage
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?
[code]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[/code]
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
Antwort 1 von Vice
Hat denn keiner eine Idee? :( Ich weiss keinen Rat mehr.