4
EventLog ausgeben und sortieren?!
Hallo Leute weis nicht ob das schon gefragt wurde bin auch neu hier.....
Also ich habe das volgende Programm das mier den EventLog ausgiebt soweit so gut.
Nun aber muss ich sortieren und zwar soll er mier nur die Wichtigen und Kritischen EventLogs ausgeben und immer nur vom heutigen Datum 2 Wochen zurück die Meldung ausgeben...?
Danke schon mall im vorraus.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myEVL As EventLog
myEVL = New EventLog("System")
For x = 0 To myEVL.Entries.Count - 1
ListBox1.Items.Add(myEVL.Entries.Item(x).TimeWritten &
myEVL.Entries.Item(x).Message)
Next
End Sub
End Class
Also ich habe das volgende Programm das mier den EventLog ausgiebt soweit so gut.
Nun aber muss ich sortieren und zwar soll er mier nur die Wichtigen und Kritischen EventLogs ausgeben und immer nur vom heutigen Datum 2 Wochen zurück die Meldung ausgeben...?
Danke schon mall im vorraus.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myEVL As EventLog
myEVL = New EventLog("System")
For x = 0 To myEVL.Entries.Count - 1
ListBox1.Items.Add(myEVL.Entries.Item(x).TimeWritten &
myEVL.Entries.Item(x).Message)
Next
End Sub
End Class
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 168698
Url: https://administrator.de/forum/eventlog-ausgeben-und-sortieren-168698.html
Ausgedruckt am: 13.01.2025 um 09:01 Uhr
4 Kommentare
Neuester Kommentar
Hallo Leute weis nicht ob das schon gefragt wurde bin auch neu hier.....
also auch ein Hallo zurück und Willkommen im Forum!ob es so oder so ähnlich schon mal gefragt worden ist, sagt uns nur die Suchmaschine.
Aber eines kann ich mit Sicherheit sagen - und das nimm mir bitte nicht übel! - mit so vielen Rechtschreibfehlern bestimmt noch nicht!
Um hier beim Ratequiz mitzumachen, müßten die Spieler noch erfahren, um welche Programmiersprache es sich genau handelt!
Ich wünsche allen nun viel Spass bei Was bin ich
Gute Nacht! ist schon spät, wo ich bin
Gruss
Tsuki
Hallo,
schau dir mal diesen Code an:
Für die Filterung schau dir mal EventLogEntryType an (Hier gibts was dazu)
Mathe172
schau dir mal diesen Code an:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyEVL As New EventLog("System")
For Each Entry As EventLogEntry In MyEVL.Entries
If DateDiff(DateInterval.Day, Entry.TimeGenerated, Now) <= 20 Then
ListBox1.Items.Add(Entry.TimeWritten & Entry.Message)
End If
Next
End Sub
End ClassMathe172
Also ich würde das Ganze mit dem Log Parser von Microsoft machen.
Da kannst du eigtl relativ schnell und einfach Events filtern zb nach Datum, Quelle, etc und nach Belieben auch zb als Excel oder HTML File ausgeben lassen!
Da kannst du eigtl relativ schnell und einfach Events filtern zb nach Datum, Quelle, etc und nach Belieben auch zb als Excel oder HTML File ausgeben lassen!
Hallo
schau mall so hab ich es gemacht....
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyEVL As New EventLog("System")
Dim iCounter As Integer = 0
For Each Entry As EventLogEntry In MyEVL.Entries
If DateDiff(DateInterval.Day, Entry.TimeGenerated, Now) <= 20 Then
If MyEVL.Entries.Item(iCounter).EntryType.ToString = "Warning" Or MyEVL.Entries.Item(iCounter).EntryType.ToString = "Error" Then
ListBox1.Items.Add(Entry.EntryType.ToString & " - " & _
Entry.TimeWritten.ToString & " - " & _
Entry.Message.ToString().Replace(ControlChars.CrLf, "" & _
"").Replace(ControlChars.Lf, ""))
End If
End If
Next
End Sub
nur das Funktioniert nicht so ganz und vorallem braucht es ewigkeiten bis er alles rausgelesen hat.....
kannst du weiter Helfen?
schau mall so hab ich es gemacht....
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyEVL As New EventLog("System")
Dim iCounter As Integer = 0
For Each Entry As EventLogEntry In MyEVL.Entries
If DateDiff(DateInterval.Day, Entry.TimeGenerated, Now) <= 20 Then
If MyEVL.Entries.Item(iCounter).EntryType.ToString = "Warning" Or MyEVL.Entries.Item(iCounter).EntryType.ToString = "Error" Then
ListBox1.Items.Add(Entry.EntryType.ToString & " - " & _
Entry.TimeWritten.ToString & " - " & _
Entry.Message.ToString().Replace(ControlChars.CrLf, "" & _
"").Replace(ControlChars.Lf, ""))
End If
End If
Next
End Sub
nur das Funktioniert nicht so ganz und vorallem braucht es ewigkeiten bis er alles rausgelesen hat.....
kannst du weiter Helfen?
