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

[Nathanael Marchand]

à 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

Mettre un DHCP avec des baux statiques

[clem67]

Mettre un DHCP avec des baux statiques

ce n'est malheureusement pas possible mais merci quand même ^^

[alex61]

Code :

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

System.Diagnostics.Process.Start("Commande DOS");

ca exécute une commande dos

après pour récupéré les donné je connait pas

[clem67]

pas encore essayé, mais si cela fonctionne, si quelqu'un connais la manière de procéder pour récupérer le retour d'info... qu'il poste

[Nathanael Marchand]

pas encore essayé, mais si cela fonctionne, si quelqu'un connais la manière de procéder pour récupérer le retour d'info... qu'il poste

Oui tu peux rediriger le flux d'entrée et de sortie vers un stream ou tu peux lire/ecrire. Y'a un truc du genre RedirectOutput et RedirectInput

[clem67]

bon, j'ai tenté quelque chose, j'arrive à ouvrir l'invité de commande avec

Code :

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

System.Diagnostics.Process.Start("cmd")

mais impossible ensuite de trouver la manière pour écrire dans l'invité de commande.

Dans l'absolu, je pense que vu qu'il existe le moyen de faire un PING et de trouver l'adresse MAC correspondante dans les langages C# et C++, il y a peu de chances pour qu'il n'y ait rien d'équivalent en VB.net, cependant j'aimerai éviter dans la mesure du possible d'ouvrir l'invité de commande à chaque ping.

J'ai le triste sentiment que peu de monde à déjà eu le besoin de faire ce que je fais... j'ai traversé Google en long, en large et en travers, mais rien de très concret, et tout ne fonctionne pas forcément...
Le plus souvent c'est juste des applis pour trouver l'adresse mac de la carte réseau de la machine à partir de laquelle on execute le script...

Bref, je commence doucement à désespérer...

Merci pour tout
Clément

[alex61]

Code :

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

1
2
        Dim siteResponds As Boolean
        siteResponds = My.Computer.Network.Ping("www.google.fr")

ca fait un ping et retourne vrai ou faux

mais pas d'arp

dsl

[clem67]

Code :

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

1
2
        Dim siteResponds As Boolean
        siteResponds = My.Computer.Network.Ping("www.google.fr")

ca fait un ping et retourne vrai ou faux

mais pas d'arp

dsl

Oui ton code fonctionne, personnellement j'utilise ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Ping As New Net.NetworkInformation.Ping
Dim PingReply As Net.NetworkInformation.PingReply
 
'...
 
PingReply = Ping.Send(Adresse IP à pinger)
 
'...
 
PingReply.Address.ToString '=> Me donne l'adresse IP testée
PingReply.Buffer.Length '=> Me donne le nombre d'octets envoyés
PingReply.RoundtripTime '=> Me donne la durée du ping

[clem67]

Je viens de trouver ceci :

Code :

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

Net.NetworkInformation.PhysicalAddress

Mais je ne sais pas comment l'exploiter pour le moment... work in progress

[clem67]

Je viens de trouver ceci :

Code :

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

Net.NetworkInformation.PhysicalAddress

Mais je ne sais pas comment l'exploiter pour le moment... work in progress

cette base semble être la bonne... mais pour le moment rien de concret, si jamais vous vous y connaissez mieux que moi (sans aucun doute d'ailleurs car je suis débutant), votre aide, avis, commentaire est le bienvenu

[clem67]

bon, à ce jour, toujours pas trouvé... même avec la piste ci-dessus

si des idées vous viennent, bienvenue à vous
Merci
Clément

[alex61]

je vient de tomber la dessus par hasard

http://access.developpez.com/faq/?page=API#MacDistant

c'est du vba mais avec un peu de chance en changeant juste quelque truc tu pouraa le réutiliser

[clem67]

je vient de tomber la dessus par hasard

http://access.developpez.com/faq/?page=API#MacDistant

c'est du vba mais avec un peu de chance en changeant juste quelque truc tu pouraa le réutiliser

salut,
merci pour le coup de main, malheureusement rien a faire...