Question about EventLog

[Dennis]

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

Protected Overrides Sub OnStart(ByVal args() As String)
If Not Diagnostics.Eve ntLog.SourceExi sts("MyService" ) Then
Diagnostics.Eve ntLog.CreateEve ntSource("MySer vice", "MyServiceL og")
End If

Dim _eventLog As New Diagnostics.Eve ntLog
_eventLog.Sourc e = "MyService"
_eventLog.Write Entry(CStr(Time OfDay) + " started", EventLogEntryTy pe.Information)

AddHandler m_listTimer.Ela psed, AddressOf myTimerElapsed
m_listTimer.Ena bled = True
End Sub

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

Computer Management(loca l)
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,

--

Dennis

[Chris Dunaway]

On May 20, 9:54 am, Dennis <nob...@nowhere .comwrote:

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

Protected Overrides Sub OnStart(ByVal args() As String)
If Not Diagnostics.Eve ntLog.SourceExi sts("MyService" ) Then
Diagnostics.Eve ntLog.CreateEve ntSource("MySer vice", "MyServiceL og")
End If

Dim _eventLog As New Diagnostics.Eve ntLog
_eventLog.Sourc e = "MyService"
_eventLog.Write Entry(CStr(Time OfDay) + " started", EventLogEntryTy pe.Information)

AddHandler m_listTimer.Ela psed, AddressOf myTimerElapsed
m_listTimer.Ena bled = True
End Sub

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

Computer Management(loca l)
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,

--

Dennis

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.Eve ntLog.WriteEntr y("MyServiceLog ", CStr(TimeOfDay) + "
started", EventLogEntryTy pe.Information)

I hope this helps.

Chris

[Dennis]

On Tue, 20 May 2008 11:16:57 -0700 (PDT), Chris Dunaway
<du******@gmail .comwrote:

>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.Ev entLog.WriteEnt ry("MyServiceLo g", CStr(TimeOfDay) + "
started", EventLogEntryTy pe.Information)

I hope this helps.

Thanks. All is now well...

--

Dennis