Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Detect Event Viewer Keywords null value
Message
De
11/01/2017 04:53:22
 
 
À
10/01/2017 12:04:16
Information générale
Forum:
ASP.NET
Catégorie:
Code, syntaxe and commandes
Versions des environnements
Environment:
VB 9.0
OS:
Windows 8.1
Network:
Windows Server 2012
Database:
Visual FoxPro
Application:
Web
Divers
Thread ID:
01646401
Message ID:
01646495
Vues:
21
>>Can you send me a evtx file with the problem ?
>
>The file will be sent by email. I only kept one record.

Hi,
That throws an exception for me. Here's my current test code :
        Dim loEventLogReader As New EventLogReader("D:\\Event.evtx", PathType.FilePath)
        Dim loEventLogRecord As EventLogRecord = Nothing

        While (InlineAssignHelper(loEventLogRecord, DirectCast(loEventLogReader.ReadEvent(), EventLogRecord))) IsNot Nothing
            Try
                Dim result As Int64 = If(loEventLogRecord.Keywords, 0)
                Console.WriteLine(loEventLogRecord.TimeCreated.ToString() + ": " + result.ToString())
                Dim final As String = String.Empty
                'Exception thrown here when accessing KeywordsDisplayNames
                For Each lcString As String In loEventLogRecord.KeywordsDisplayNames
                    final += lcString & Convert.ToString(",")
                Next
                If final.Length > 0 Then
                    final = final.Substring(0, final.Length - 1)
                End If
                Console.WriteLine(final)
            Catch ex As Exception
                Console.WriteLine("Exception at {0} : {1} ", loEventLogRecord.TimeCreated.ToString(), ex.Message)
            End Try
        End While
        Console.ReadLine()
Oh, and the helper method:
    Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
        target = value
        Return value
    End Function
I'm guessing that the error occurs because of omissions in the registry which prevents some items being resolved.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform