bonjour

lorsque j'exécute mon programme le systéme m'affiche une erreur au niveau de cette méthode.
voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Shared Function identifier(ByVal wmiclass As String, ByVal wmiproperty As String)
            Dim result As New String("")
            Dim mc As Management.ManagementClass = New ManagementClass(wmiclass)
            Dim moc As Management.ManagementObjectCollection = mc.GetInstances()
            Dim mo As Management.ManagementObject = New ManagementObject
            For Each mo In moc
                If result = "" Then
                    Try
                        result = mo.GetPropertyValue(wmiproperty).ToString
                        Exit Try
 
                    Catch ex As Exception
                        MessageBox.Show(ex.ToString(), "erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End Try
                End If
 
            Next mo
 
            Return result
        End Function
l'erreur affichée est :
System.NullReferenceException : la réference d'objet n'est pas définie à une instance d'objet
c'est au niveau de la ligne suivante que l'erreur se déclenche:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
result = mo.GetPropertyValue(wmiproperty).ToString
cordialement