Gegevens naar logboek schrijven (.NET)

[tuning4you]

Onderstaande code gebruik ik om gegevens naar het logboek te schrijven. Ik wou dit onder mijn eigen log aanmaken.
Er wordt in het logboek een log "Mijn Log" aangemaakt. Daaronder komen de gebeurtenissen. Bij Bron staat echter "Mijn Log" en ik wil daar eigenlijk de naam van de applicatie staan hebben. Iemand een idee?

Private Sub TraceInformatie(ByVal strBericht As String, ByVal strSoortMelding As String)

Dim objTrcEventLog As New EventLogTraceListener("Mijn Log")

If EventLog.Exists("Mijn Log") = False Then
EventLog.CreateEventSource("MailingTransfert", "Mijn Log")
End If

Trace.Listeners.Add(objTrcEventLog)
Select Case strSoortMelding
Case "ERROR"
Trace.TraceError(strBericht)
Case "WARNING"
Trace.TraceWarning(strBericht)
Case "INFORMATION"
Trace.TraceInformation(strBericht)
End Select

Trace.Flush()
objTrcEventLog.Close()
Trace.Listeners.Remove(objTrcEventLog)
End Sub

 

[Pizara]

        Dim p As Process = Process.GetCurrentProcess()
        label1.text = p.ProcessName

 

[tuning4you]

Ik denk dat je me niet begrijpt.
De processnaam moet ik niet in mijn applicatie hebben maar als bronvermelding binnen het logboek.

 

[Pizara]

Bij Bron staat echter "Mijn Log" en ik wil daar eigenlijk de naam van de applicatie staan hebben. Iemand een idee

nou met p.ProcessName heb je je naam van je applicatie toch?

 

[tuning4you]

Ja maar daarom staat ie nog niet als bronvermelding in mijn logboek. Zie bijlage met voorbeeld van wat ik bedoel. Daar wil ik in plaats van Mijn Log mijn applicatienaam MailingTransfert.

 

[Pizara]

ah op die manier.

Dim Eventlog As New EventLog
        Eventlog.Source = ......

 

[tuning4you]

Blijkbaar werkte dat niet met EventLogTraceListener of zo.
Heb het op een andere manier dan maar gedaan:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.Diagnostics.EventLog.CreateEventSource("applicatienaam", "Private")
End Sub




Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Make sure the Eventlog Exists
If (EventLog.SourceExists("applicatienaam")) Then
'Create an EventLog instance and assign its source.
Dim myLog As EventLog = New EventLog("Private")
myLog.Source = "applicatienaam"
'Write the error entry to the event log.
myLog.WriteEntry("An error occurred in the Web application", EventLogEntryType.Error)



End If


End Sub