Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

EventLog ausgeben und sortieren?!

Frage Entwicklung

Mitglied: deledi

deledi (Level 1) - Jetzt verbinden

27.06.2011 um 17:29 Uhr, 3329 Aufrufe, 4 Kommentare

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
Mitglied: TsukiSan
27.06.2011 um 17:47 Uhr
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
Bitte warten ..
Mitglied: mathe172
27.06.2011 um 20:46 Uhr
Hallo,

schau dir mal diesen Code an:
01.
Public Class Form1 
02.
 
03.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
04.
        Dim MyEVL As New EventLog("System") 
05.
        For Each Entry As EventLogEntry In MyEVL.Entries 
06.
            If DateDiff(DateInterval.Day, Entry.TimeGenerated, Now) <= 20 Then 
07.
                ListBox1.Items.Add(Entry.TimeWritten & Entry.Message) 
08.
            End If 
09.
        Next 
10.
    End Sub 
11.
 
12.
End Class
Für die Filterung schau dir mal EventLogEntryType an (Hier gibts was dazu)

Mathe172
Bitte warten ..
Mitglied: svipdagr
28.06.2011 um 10:24 Uhr
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!
Bitte warten ..
Mitglied: deledi
29.06.2011 um 22:03 Uhr
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?
Bitte warten ..
Ähnliche Inhalte
Windows Server
Wie kann ich das Eventlog reparieren?
Frage von joni2000deWindows Server3 Kommentare

Hallo, kann mir jemand beim meinem Problem wie in dieser Frage ganz unten beschrieben weiter helfen? Ich habe mich ...

Windows Server
Eventlog - bestimmte Events exportieren und Eventlog leeren
gelöst Frage von Xaero1982Windows Server8 Kommentare

Moin Zusammen, aufgrund eines ziemlichen GAUs (Ein unbekannter Nutzer hat die Daten aus einem Verzeichnis gelöscht) bin ich gezwungen ...

Windows 8
Einstellungen Eventlog
gelöst Frage von Wisch43Windows 84 Kommentare

Hallo miteinander, wie (wenn überhaupt) kann ich den Eventlog so einstellen, dass meine erstellte Benutzerdefinierte Ansicht beim Start des ...

VB for Applications
Dateien aus Ordnerstruktur in Textdatei schreiben, nach Dateinamen sortieren und zusätzlich in HTML in Tabellenform ausgeben
gelöst Frage von cbliVB for Applications6 Kommentare

Hallo An Allle Ich habe ein Script (hier nochmals vielen Dank an Bastla für die Hilfe) welches Dateien mit ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Necur-Botnet soll Erpressungstrojaner Scarab massenhaft verbreiten

Information von BassFishFox vor 8 StundenErkennung und -Abwehr

12,5 Millionen Spam-Mails aus einem Bot-Netz mit 6 Millionen Computern? Eigentlich eine schwache Leistung. Die Erpresser setzen dabei auf ...

Microsoft

Nadeldrucker-Problem unter Windows - Microsoft liefert Updates

Information von BassFishFox vor 8 StundenMicrosoft

Hat ja nicht lange gedauert. Nachdem die November-Updates für Windows 7, 8.1 und 10 zahlreiche Nadeldrucker lahmgelegt hatten, stellt ...

Linux

Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde

Information von Frank vor 16 StundenLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 1 TagBatch & Shell9 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Heiß diskutierte Inhalte
Windows Server
Kann man im KMS nachschauen , wieviele Clients den Key in Anspruch genommen haben
gelöst Frage von rainergugusWindows Server15 Kommentare

Hallo, wir haben einen KMS Windows 10 Key. Dieser ist ja W7 kompatibel. Aber unser Windows 7 Pool registriert ...

Linux
Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde
Information von FrankLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Router & Routing
Zwei Netzwerke erstellen
Frage von bunteblumeRouter & Routing14 Kommentare

Hallo Zusammen, Ich möchte gerne ein backup von einem bestimmten Folder welcher auf dem Server regelmässig synchronisiert wird auf ...

Off Topic
Fachkräftemangel in Deutschland? - Talentschmiede schreibt alle 2 Tage die gleichen Stellen aus
Frage von Penny.CilinOff Topic12 Kommentare

Hallo, haben wir in Deutschland Fachkräftemangel? Die Talentschmiede schreibt gefühlt alle zwei Tage dieselben Stellen aus. Und das schon ...