VB.NET - Eintrag in Eventlog funktioniert nicht

[Andreas Dunstheimer]

Hi Community,

ich programmiere seit Kurzem in VB.NET und hab da ein paar Problemchen. Das Meisste konnte ich bisher mittels Google und/oder MSDN lösen, aber im Moment hab ich ein Problem, wo ich einfach nicht weiterkomme.

Ich versuche gerade einen Dienst zu programmieren, was soweit auch funktioniert. Was nicht funktioniert ist der Eintrag ins EventLog. (... und das, obwohl ich den Code fast 1:1 aus der MSDN kopiert habe)

hier mal mein Code:

Protected Overrides Sub OnStart(ByVal args() As String)
[...]
If Not EventLog.SourceExists("MeinLog") Then
  EventLog.CreateEventSource("MeinLog", "Application")
End If
[...]
End Sub



Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
EventLog.WriteEntry("MeinLog", "TestEintrag", EventLogEntryType.Information)
[...]

Timer1 ist euf ein Interval von 10 Sekunden eingestellt ... es sollte also eigentlich alle 10 Sekunden ein Eintrag erfolgen. Tut es aber nicht.

Kann mir da jemand helfen?

Gruß Dunsti

 

[Norbert Eder]

Hier ein von mir getestetes Beispiel:

    If Not EventLog.SourceExists("TestCategory") Then
        EventLog.CreateEventSource("TestCategory", "TestLog")
    End If
    Dim evtLog As New EventLog
    evtLog.Source = "TestCategory"
    evtLog.WriteEntry("This is a test", EventLogEntryType.Information)

Und auch gleich noch in C#:

    if (!EventLog.SourceExists("TestCategory"))
    {
        EventLog.CreateEventSource("TestCategory", "TestLog");
    }
    EventLog evtLog = new EventLog();
    evtLog.Source = "TestCategory";
    evtLog.WriteEntry("This is a test", EventLogEntryType.Information);

 

[Andreas Dunstheimer]

danke für die Antwort, das funktioniert ... mein Code funktioniert mittlerweile auch ... es muss also an was anderem gelegen haben, aber irgendwie verstehe ich es (noch) nicht so ganz.

Gruß Dunsti