Besoin d'aide analyser mon codeRésolu

Question

Bonjour,
Voila, avec mon code j'ai réussit a faire sortir mon adresse IP 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click



        Dim MonAdresseIP As String
        MonAdresseIP = ""

        Try

            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
               "SELECT * FROM Win32_NetworkAdapterConfiguration where IPEnabled = true")

            For Each IpObjetFind As ManagementObject In searcher.Get()

                MsgBox(IpObjetFind.GetText(TextFormat.Mof))


            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try



    End Sub


Mais Mon probleme est quand je souhaite extraire juste mon adresse ip avec 

MsgBox(IpObjetFind("IPAddress"))

La j'ai l'erreur suivante : L'argument 'Prompt' ne peut pas être converti en type 'String'.


Alors que si je fais 
MsgBox(IpObjetFind("MacAddress"))

La j'affiche correctement mon adresse Mac 


Quelqu'un peut il m?aider a trouver la solution a mon probleme 
merci

Renfield · Accepted Answer

tentes:

IpObjetFind("IPAddress")(0)

me semble en effet que tu récupères un tableau de string


Renfield - Admin CodeS-SourceS - MVP Visual Basic

leken · Answer

Merci beaucoup cela fonctionne correctement 

je met mon code en ligne qui sait cela peut aider un autre 

  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click



        Dim MonAdresseIP As String
        MonAdresseIP = ""

        Try

            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
               "SELECT * FROM Win32_NetworkAdapterConfiguration where IPEnabled = true")

            For Each IpObjetFind As ManagementObject In searcher.Get()

              
                MsgBox(IpObjetFind("IPAddress")(0))
                ' MsgBox(IpObjetFind.GetText(TextFormat.Mof))
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try



    End Sub


encore merci pour ton aide

Besoin d'aide analyser mon code

2 réponses

Votre réponse

Discussions similaires