Dim strServer As String
        Dim EvtEntry As EventLogEntry
        Dim EvtLog As EventLog
Dim i As Integer = 0
 
        Try
            strServer = appMonitor.strMon_Server
                EvtLog = New EventLog(appMonitor.strMon_EventlogName, strServer)
 
 
'Hier fällt er auf die Schnauze, da er keine Entries findet.
                For Each EvtEntry In EvtLog.Entries
                    If EvtEntry.InstanceId = appMonitor.intMon_EventID Then
                        i += 1
                    End If
                Next EvtEntry
 
                EvtLog.Close()
 Catch ex As Exception
            ret = Nothing
            'Falls ein Fehler auftaucht, Fehler Log ausgeben.
            LogEvent("Ereignisprotokoll Failed", String.Format("Prüfung für" & _
              "ereignisprotokoll '{0}' ist fehlgeschlagen! Ex: {1}", _
              appMonitor.strMon_EventlogName, ex.Message), _
              EventLogEntryType.Error, 44)
        End Try

~

Beitrag wurde zuletzt am 31.07.12 um 11:43:42 editiert.