Supportnet Computer
Planet of Tech

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.