Question about EventLog

  • Thread starter Thread starter Dennis
  • Start date Start date
D

Dennis

I have a service with the following startup code...
Protected Overrides Sub OnStart(ByVal args() As String)
If Not Diagnostics.EventLog.SourceExists("MyService") Then
Diagnostics.EventLog.CreateEventSource("MyService", "MyServiceLog")
End If

Dim _eventLog As New Diagnostics.EventLog
_eventLog.Source = "MyService"
_eventLog.WriteEntry(CStr(TimeOfDay) + " started", EventLogEntryType.Information)

AddHandler m_listTimer.Elapsed, AddressOf myTimerElapsed
m_listTimer.Enabled = True
End Sub
Click to expand...

When I start the service I see a new entry under...

Computer Management(local)
System Tools
Event Viewer
Application
MyServiceLog <--- new entry

But the actual event I write gets logged with the Application events.

My question is, can I get the events that I write to go under
MyServiceLog? What am I doing wrong?

TIA,
 
I have a service with the following startup code...




When I start the service I see a new entry under...

Computer Management(local)
System Tools
Event Viewer
Application
MyServiceLog <--- new entry

But the actual event I write gets logged with the Application events.

My question is, can I get the events that I write to go under
MyServiceLog? What am I doing wrong?

TIA,
Click to expand...

You're calling a Shared method from an instance variable, expecting it
to use your new event source. C# disallows this, but VB allows it.
There are overloads of the WriteEntry method that are not Shared, but
I think those only write to the default event log.

You need to call it like this:

Diagnostics.EventLog.WriteEntry("MyServiceLog", CStr(TimeOfDay) + "
started", EventLogEntryType.Information)

I hope this helps.

Chris
 
You're calling a Shared method from an instance variable, expecting it
to use your new event source. C# disallows this, but VB allows it.
There are overloads of the WriteEntry method that are not Shared, but
I think those only write to the default event log.

You need to call it like this:

Diagnostics.EventLog.WriteEntry("MyServiceLog", CStr(TimeOfDay) + "
started", EventLogEntryType.Information)

I hope this helps.
Click to expand...

Thanks. All is now well...
 
Back
Top