Display all Application EventLog : EventLog « Windows « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows
3. EventLog

Imports System.Diagnostics

Module Module1
    Sub Main()

        Dim Log As New EventLog("Application")
        Dim Evt As EventLogEntry
        For Each Evt In Log.Entries
            Console.WriteLine(Evt.Message)
            Console.WriteLine(Evt.TimeGenerated)
            
            Console.WriteLine(Evt.Source)
            
        Next
    End Sub
End Module

The description for Event ID '0' in Source 'CacheMgr' cannot be found.  The local computer may not h
ave the necessary registry information or message DLL files to display the message, or you may not h
ave permission to access them.  The following information is part of the event:'Service started'
15/04/2007 12:41:55 PM
CacheMgr
The description for Event ID '1073872930' in Source 'Oracle.xe' cannot be found.  The local computer
...