leken
Messages postés33Date d'inscriptionvendredi 11 avril 2003StatutMembreDernière intervention16 mars 2012
-
13 août 2009 à 23:43
leken
Messages postés33Date d'inscriptionvendredi 11 avril 2003StatutMembreDernière intervention16 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
leken
Messages postés33Date d'inscriptionvendredi 11 avril 2003StatutMembreDernière intervention16 mars 20121 15 août 2009 à 13:38
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