Besoin d'aide analyser mon code [Résolu]

leken 33 Messages postés vendredi 11 avril 2003Date d'inscription 16 mars 2012 Dernière intervention - 13 août 2009 à 23:43 - Dernière réponse : leken 33 Messages postés vendredi 11 avril 2003Date d'inscription 16 mars 2012 Dernière intervention
- 15 août 2009 à 13:38
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
Afficher la suite 

Votre réponse

2 réponses

Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 13 août 2009 à 23:59
+3
Utile
tentes:

IpObjetFind("IPAddress")(0)

me semble en effet que tu récupères un tableau de string


Renfield - Admin CodeS-SourceS - MVP Visual Basic
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Renfield
leken 33 Messages postés vendredi 11 avril 2003Date d'inscription 16 mars 2012 Dernière intervention - 15 août 2009 à 13:38
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de leken

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.