Adresse MAC [Résolu]

Messages postés
17
Date d'inscription
dimanche 2 mai 2010
Dernière intervention
11 mai 2012
- - Dernière réponse : ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
- 15 mars 2012 à 20:27
salut à tous,
je suis une débutante en vb.net

je veux déterminer l'adresse Mac de chaque poste sur le même réseau à partir d'une adresse IP en utilisant le RARP et des commandes réseau en vb.net.
NB: l’établissement utilise un Serveur DHCP
svp je veux une repense rapide
merciii d'avance .
Afficher la suite 

Votre réponse

6 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
y'a franchement de l'abus !

GIMF :

VB.NET SendARP

premier lien :
http://www.pinvoke.net/default.aspx/iphlpapi.sendarp

Public Shared Function GetMAC(ByVal IPAddress As String) As String
    Dim addr As IPAddress = IPAddress.Parse(IPAddress)
    Dim mac() As Byte = New Byte(6) {}
    Dim len As Integer = mac.Length
    SendARP(CType(addr.Address, UInt32), 0, mac, len)
    Dim macAddress As String = BitConverter.ToString(mac, 0, len)
    Return macAddress
End Function


Marre des pseudo développeurs qui ne savent que copier/coller/adapter...

la lecture de la documentation serait donc en supplément ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp

Dire « Merci » 3

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

Codes Sources 96 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
3
Merci
Salut Renfield,
Public Shared Function GetMAC(ByVal IPAddress As String)
Après un test, la variable "string" ne peux pas s'appeler "IPAddress"

Plutôt comme ça (testé):
Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Ip As String = System.Net.Dns.GetHostByName(Dns.GetHostName).AddressList.GetValue(0).ToString
        MessageBox.Show(Ip & " : " & GetMAC(Ip))
    End Sub

    Declare Function SendARP Lib "iphlpapi.dll" (
     ByVal DestIP As UInt32, ByVal SrcIP As UInt32, _
     ByVal pMacAddr As Byte(), ByRef PhyAddrLen As Integer) As Integer

    Public Shared Function GetMAC(ByVal StringIPAddress As String) As String
        Dim addr As IPAddress = IPAddress.Parse(StringIPAddress)
        Dim mac() As Byte = New Byte(6) {}
        Dim len As Integer = mac.Length
        SendARP(CType(addr.Address, UInt32), 0, mac, len)
        Dim macAddress As String = BitConverter.ToString(mac, 0, len)
        Return macAddress
    End Function
end class


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Dire « Merci » 3

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

Codes Sources 96 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Utilisateur anonyme
0
Merci
Salut,
Renfield t'a déjà aiguillé sur la SendARP.
Maintenant la vrai première question est:
Es-tu sur VB6? (la section de ton premier message)
Ou sur VB.Net? (la présente section)

Il faut savoir...

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Dernière intervention
27 août 2013
0
Merci
Bonjour,

Et que fais-tu des 2 réponses qui t'ont été données hier sur un sujet identiqueque tu as posté en catégorie vb6?

Continue donc là-bas, vu que des gens ont pris la peine de te répondre.

svp je veux une repense rapide

Et quand je vois ça, personnelement ça ne m'incite pas du tout à répondre, on est ici tous bénévoles pour apporter notre aide, et on n'est pas forcé de répondre à la minute


L'expérience, c'est une connerie par jour, mais jamais la même..
Commenter la réponse de lolokun
Messages postés
17
Date d'inscription
dimanche 2 mai 2010
Dernière intervention
11 mai 2012
0
Merci
merciii pour votre aide c'est trés gentil :)
Commenter la réponse de cs_olfafoufa
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
0
Merci
A Raynald :
Tiens ! toi également ?
Je partage totalement ton état d'âme.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu

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.