VB.Net Tutorial/Windows/EventLog

Display all Application EventLog

<source lang="vbnet">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</source>

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
...

EventLogEntryType.Information

<source lang="vbnet">Imports System.Diagnostics public class Test

  Shared Dim logStatus As System.Diagnostics.EventLog = New System.Diagnostics.EventLog
  public Shared Sub Main
       
       If Not EventLog.SourceExists("StatusSource") Then
           EventLog.CreateEventSource("StatusSource", "StatusLog")
           Console.WriteLine("Creating event source")
       End If
       " Set the EventLog component"s source.
       logStatus.Source = "StatusSource"
       " Write a Starting message to the log.
       ShowLog()
       logStatus.Clear()
       ShowLog()
  End Sub
   Private Shared Sub ShowLog()
       For Each log_entry As EventLogEntry In logStatus.Entries
           Console.WriteLine(log_entry.Message)
       Next log_entry
   End Sub
  

End class</source>

11/05/2007 12:29:16 PM> Starting
11/05/2007 12:29:16 PM> Closing

Write to System EventLog

<source lang="vbnet">Imports System.Diagnostics Module Module1

   Sub Main()
       Dim Log As New EventLog("Application")
       Log.Source = "FormEventLog"
       Log.WriteEntry("www.vbex.ru")
   End Sub

End Module</source>