Discussion :

[clem67]

Bonjour,
je suis à la recherche d'une fonction qui me permettrait de récupérer l'adresse Mac d'un appareil pour lequel j'ai l'adresse IP.
Actuellement, mon programme fait des ping avec des adresses ip, j'aimerai juste récupérer les adresses MAC correspondantes pour pouvoir identifier tous les appareil branchés (savoir quel appareil a quelle adresse IP)

Merci d'avance,
Clément

[koyot3]

Salut,

Tu peux regarder du côté de WMI
http://www.thescarms.com/dotNet/wmi.aspx

un autre exemple

@+

[clem67]

merci pour les liens, je pense que c'est une bonne piste, mais je n'ai pas réussi à exploiter correctement

je pensais qu'en utilisant IPAddress au lieu de IPEnabled (voir code ci dessous) j'arriverai à retrouver l'adresse mac correspondante, mais visiblement ça ne fonctionne pas car IPAddress est un Array...
Il va me falloir trouver une autre solution donc...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Imports System.Management 

    Try
        Dim strMACAddress as string = ""
        '
        ' Create the query, in SQL syntax, to retrieve the properties from
        ' the active Network Adapter.
        '
        ' A l'origine, la ligne suivante est ainsi :
        ' Dim strQuery As String = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
        Dim strQuery As String = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPAddress =" & MonadresseIP

        '
        ' Create a ManagementObjectSearcher object passing in the query to run.
        '
        Dim query As ManagementObjectSearcher = New ManagementObjectSearcher(strQuery)

        '
        ' Create a ManagementObjectCollection assigning it the results of the query.
        '
        Dim queryCollection As ManagementObjectCollection = query.Get()

        '
        ' Loop through the results extracting the MAC Address.
        '
        Dim mo As ManagementObject

        For Each mo In queryCollection
            strMACAddress = mo("MacAddress").ToString().Replace(":", "")
            Exit For
        Next

        Return strMACAddress 

    Catch ex As Exception
        Return ""
    End Try

Merci pour votre aide
Clément

[Nathanael Marchand]

merci pour les liens, je pense que c'est une bonne piste, mais je n'ai pas réussi à exploiter correctement

je pensais qu'en utilisant IPAddress au lieu de IPEnabled (voir code ci dessous) j'arriverai à retrouver l'adresse mac correspondante, mais visiblement ça ne fonctionne pas car IPAddress est un Array...
Il va me falloir trouver une autre solution donc...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Imports System.Management 

    Try
        Dim strMACAddress as string = ""
        '
        ' Create the query, in SQL syntax, to retrieve the properties from
        ' the active Network Adapter.
        '
        ' A l'origine, la ligne suivante est ainsi :
        ' Dim strQuery As String = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
        Dim strQuery As String = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPAddress =" & MonadresseIP

        '
        ' Create a ManagementObjectSearcher object passing in the query to run.
        '
        Dim query As ManagementObjectSearcher = New ManagementObjectSearcher(strQuery)

        '
        ' Create a ManagementObjectCollection assigning it the results of the query.
        '
        Dim queryCollection As ManagementObjectCollection = query.Get()

        '
        ' Loop through the results extracting the MAC Address.
        '
        Dim mo As ManagementObject

        For Each mo In queryCollection
            strMACAddress = mo("MacAddress").ToString().Replace(":", "")
            Exit For
        Next

        Return strMACAddress 

    Catch ex As Exception
        Return ""
    End Try

Merci pour votre aide
Clément

Si t'itères sur les éléments de l'array tu dois pouvoir trouver l'ip non?
(A moins que l'array SOIT l'ip (car une ipv4 est un array de 4 octets))

[alex61]

je l'ai jamais utiliser en VB
mais il y le protocole ARP qui fait ca il me semble

[clem67]

je l'ai jamais utiliser en VB
mais il y le protocole ARP qui fait ca il me semble

à ma connaissance, j'ai toujours utilisé le protocole ART avec l'invité de commande, mais pour mon cas, je souhaiterai faire en quelque sorte la même chose, mais pas dans l'invité de commande.
En fait, j'essaie de faire un programme faisant un ping pour une plage d'adresses IP, et pour chaque adresse IP qui répond, récupérer l'adresse MAC correspondante.
C'est en fait pour pouvoir identifier les appareil qui sont dans mon réseau local, l'IP n'étant pas fixe pour chacun d'eux.

Si vous avez de bons tuyaux... je suis évidemment preneur

Merci
Clément