Recupération d' adresse MAC à partir d'adresse IP [Résolu]

cs_olfafoufa 17 Messages postés dimanche 2 mai 2010Date d'inscription 11 mai 2012 Dernière intervention - 1 mars 2012 à 12:26 - Dernière réponse : cs_olfafoufa 17 Messages postés dimanche 2 mai 2010Date d'inscription 11 mai 2012 Dernière intervention
- 2 mars 2012 à 14:37
salut tous le monde,
j'essaie avec ce code

Imports Microsoft.VisualBasic.Devices

Public Class Form1

Dim Computer As String
Dim montexte As String
Dim IPConfig As Object
Dim wscript As Object

Private Property IPConfigSet As Object

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dwLen As Long
Dim strString As String

On Error Resume Next
IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
If Err.Number <> 0 Then
montexte = " - non accessible -"
Else
For Each IPConfig In IPConfigSet
wscript.echo(" adresse MAC " & vbTab & " : " & IPConfig.MACAddress & vbCrLf & _
" adresse IP " & vbTab & " : " & IPConfig.IPAddress(0))
Next
TextBox1.Text = IPConfig.IPAddress(0)
TextBox2.Text = IPConfig.MACAddress
End If
End Sub
End Class


Imports Microsoft.VisualBasic.Devices

Module Module1
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Dim montexte As String

Private Property IPConfigSet As Object

Private Property Computer As String

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long


End Module

Mais le résultat de ce code me donne une adresse IP :192.168.116.1 différente de celle de ma carte réseau .
Afficher la suite 

5 réponses

Répondre au sujet
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 1 mars 2012 à 14:00
+1
Utile
te faudrait afficher le nom de l'interface concernée... l'ip affichée sort pas d nulle part...

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Renfield
cs_olfafoufa 17 Messages postés dimanche 2 mai 2010Date d'inscription 11 mai 2012 Dernière intervention - 1 mars 2012 à 20:24
+1
Utile
Bns Renfield ,
je veux récupérer seulement l'adresse mac
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_olfafoufa
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 2 mars 2012 à 07:27
+1
Utile
Ce que j'en dit, c'est que ton code est plus du VB6 que du .NET...

que l'ip affichée n'est pas inventée ! c'est bel et bien celle d'une de tes cartes réseau (Wifi, rj45 ou autre)...

et qu'afficher le nom de celle ci te permttrait de savoir pouquoi l'IP te semble differente de l'ip attendue !

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Renfield
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 2 mars 2012 à 07:52
+1
Utile
quand je parle de code non .Net, je t'invite a exploiter le
System.Net.NetworkInformation :

Imports System.Net.NetworkInformation

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each ni As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces()
            MessageBox.Show("Nom : " & ni.Name & Environment.NewLine & _
                            "IP : " & ni.GetIPProperties.UnicastAddresses(0).Address.ToString() & Environment.NewLine & _
                            "MAC : " & ni.GetPhysicalAddress.ToString())
        Next
    End Sub
End Class



Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Renfield
cs_olfafoufa 17 Messages postés dimanche 2 mai 2010Date d'inscription 11 mai 2012 Dernière intervention - 2 mars 2012 à 14:37
+1
Utile
merciiiii bcp Renfield pour votre aide :))))
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_olfafoufa

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.