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

Messages postés
33
Date d'inscription
vendredi 11 avril 2003
Dernière intervention
16 mars 2012
- - Dernière réponse : leken
Messages postés
33
Date d'inscription
vendredi 11 avril 2003
Dernière intervention
16 mars 2012
- 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

Meilleure réponse
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
3
Merci
tentes:

IpObjetFind("IPAddress")(0)

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


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 105 internautes ce mois-ci

Commenter la réponse de Renfield
Messages postés
33
Date d'inscription
vendredi 11 avril 2003
Dernière intervention
16 mars 2012
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 105 internautes ce mois-ci

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.