deledi
Jun 27, 2011
view3947
view4
0
Goto Top

EventLog ausgeben und sortieren?!

GermanQuestionDevelopment

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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 168698

Url: https://administrator.de/contentid/168698

Printed on: April 24, 2024 at 13:04 o'clock

4 Comments
Latest comment
Goto Top
Member: TsukiSan
TsukiSan Jun 27, 2011 at 15:47:59 (UTC)
Goto Top
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 face-wink

Gute Nacht! ist schon spät, wo ich bin

Gruss
Tsuki
Member: mathe172
mathe172 Jun 27, 2011 at 18:46:11 (UTC)
Goto Top
Hallo,

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 Class
Für die Filterung schau dir mal EventLogEntryType an (Hier gibts was dazu)

Mathe172
Member: hackbeard
hackbeard Jun 28, 2011 at 08:24:00 (UTC)
Goto Top
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!
Member: deledi
deledi Jun 29, 2011 at 20:03:42 (UTC)
Goto Top
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?
GermanQuestionDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments