Sujet Précédent Sujet Suivant

RECUPERER LA MAC ADRESSE

Ben - 9 nov. 2000 à 03:16
FrancisVif Messages postés 2 Date d'inscription mardi 15 décembre 2009 Statut Membre Dernière intervention 10 septembre 2012 - 5 janv. 2011 à 11:45

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/107-recuperer-la-mac-adresse

FrancisVif Messages postés 2 Date d'inscription mardi 15 décembre 2009 Statut Membre Dernière intervention 10 septembre 2012 1
5 janv. 2011 à 11:45

Bon allez, il est sympa que j'apporte aussi ma contribution ...
Voici donc ma méthode pour trouver une adresse MAC, faites-en bon usage, et apportez vos commentaires si nécessaire.
Francis

Option Explicit

Private Declare Function inet_addr Lib "wsock32.dll" (ByVal s As String) As Long
Private Declare Function SendARP Lib "iphlpapi.dll" (ByVal DestIP As Long, ByVal SrcIP As Long, pMacAddr As Long, PhyAddrLen As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dst As Any, src As Any, ByVal bcount As Long)

Sub Form_Load()

Dim MonIp As String, MacLue As String, MaMac As String

' Pour lire l'adresse IP de la machine, ajouter au préalable un contrôle Winsock dans votre feuille nommé Winsock1 '
' Sinon, prédéfinir l'adresse IP de la machine, ou n'importe quelle autre présente sur le réseau) '

MonIp = Winsock1.LocalIP
' MonIp = "192.168.1.1" ' Exemple pour l'adresse MAC d'une LiveBox

If Len(MonIp) > 0 Then
MaMac = LireAdresseMac(MonIp)
If MaMac = "" Then
MaMac = "Erreur de lecture Adresse Mac sur IP:" & MonIp
End If
Else
MaMac = "Erreur d'adresse IP !"
End If

MsgBox MaMac
End

End Sub

Function LireAdresseMac(IpLue As String) As String

Dim NumeroIp As Long, AdresseMac As Long, LongueurAdresse As Long, TableMac() As Byte, n As Integer, Octet As String

NumeroIp = inet_addr(IpLue)

If NumeroIp <> 0 Then
LongueurAdresse = 6
If SendARP(NumeroIp, 0, AdresseMac, LongueurAdresse) = 0 Then
If (AdresseMac <> 0) And (LongueurAdresse <> 0) Then
ReDim TableMac(0 To LongueurAdresse - 1)
CopyMemory TableMac(0), AdresseMac, ByVal LongueurAdresse
For n = 0 To LongueurAdresse - 1
Octet = Hex(TableMac(n))
LireAdresseMac = LireAdresseMac & IIf(Len(Octet) < 2, "0" & Octet, Octet)
If n < LongueurAdresse - 1 Then
LireAdresseMac = LireAdresseMac & "-"
End If
Next
End If
End If
End If

End Function

cs_Ouneufe Messages postés 60 Date d'inscription mardi 4 septembre 2001 Statut Membre Dernière intervention 19 janvier 2009
27 nov. 2007 à 11:29

ça ne m'affiche que des zéros, désespérant.

alkaesare Messages postés 5 Date d'inscription jeudi 30 mars 2006 Statut Membre Dernière intervention 22 décembre 2006
2 nov. 2006 à 15:43

slt je voudrais bien savoir si il y a un moyen pour sécuriser une application VB6 a part l'dresse MAC
et merci d'avance

VBSorcier Messages postés 102 Date d'inscription jeudi 31 mars 2005 Statut Membre Dernière intervention 29 avril 2007
27 avril 2005 à 12:28

ce code il est aussi dans msdn

"HOWTO: Get Network Adapter Address from Visual Basic"

ftjarod Messages postés 2 Date d'inscription mardi 21 octobre 2003 Statut Membre Dernière intervention 12 mai 2006
16 juin 2004 à 16:05

Il faut rendre a César ce qui apartient a César...
Le code vient de : http://vbnet.mvps.org/index.html?code/network/macaddress.htm.

Ce code reste néamoins stable, mais uniquement pour les configs avec 1 carte réseau...
Des modifs restent à aporter avec une config à plusieurs cartes.
A optimiser peut-être.

redsentry Messages postés 2 Date d'inscription samedi 8 mai 2004 Statut Membre Dernière intervention 11 mai 2004
11 mai 2004 à 16:49

Ca marche du premier coup sur Xp-Home et W98.
sans les zéros du début mais je m'en gratte

Excellent Nix

aazouf Messages postés 6 Date d'inscription mardi 21 octobre 2003 Statut Membre Dernière intervention 3 avril 2008
8 mars 2004 à 22:21

Pour ceux dont il manque le 0 voici le bout de code à changer dans le for

For I = 0 To 5
If Len(Format$(Hex(adapter.adapt.adapter_address(I)), "00")) < 2 Then
macAdr = macAdr & "0"
End If
macAdr = macAdr & Format$(Hex(adapter.adapt.adapter_address(I)), "00") & " "
Next I

bibi79 Messages postés 1 Date d'inscription vendredi 17 octobre 2003 Statut Membre Dernière intervention 17 octobre 2003
17 oct. 2003 à 09:20

Bonjour, Je suis tout nouveau.
Moi, j'utilise l'ARP. L'adresse MAC est stocké dans l'ARP lorsque que tu fais un ping d'une adresse IP. Je fais un scan IP via un ping et régulierement je fais un ARP -a > fichier .txt
Puis je traite le fichier en cherchant la ligne avec mon IP rechercher au bout j'ai mon adresse MAC
Et cela fonctionne assez bien
Voila bon courrage

fifipil909 Messages postés 57 Date d'inscription jeudi 23 janvier 2003 Statut Membre Dernière intervention 24 mai 2006
22 août 2003 à 12:02

salut ba moi ca marche nikel par contre le pied serais de pouvoir trouver les adresse MAC de pc distant !!

si kelkun a des news la dessus je suis preneur

merci !

vhj Messages postés 5 Date d'inscription jeudi 13 juin 2002 Statut Membre Dernière intervention 17 novembre 2009
25 juil. 2003 à 12:37

Salut,
J'ai essayé tous les bouts de codes pour récupérer la Mac Adresse, résultat il sme retournent que des 00 00 00 00 00 00

cs_spet Messages postés 15 Date d'inscription jeudi 19 octobre 2000 Statut Membre Dernière intervention 14 mars 2005
9 juil. 2003 à 15:52

Salut tout le monde...

Je viens de tester vos deux programmes pour recuperer l'adresse Mac.
J'ai un probléme sur une machine...
En effet, l'@ de la carte est : 00 02 A5 0A 88 4C

et par le prog, j'obtiens: 00 02 A5 A 88 4C

Il me manque un chiffre... :(
Quelqu'un serait ce qui se passe???

Merci de votre aide.

Spet.

cs_Marcial Messages postés 57 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 31 juillet 2008
27 juin 2003 à 12:40

slt,
Quelqu'un sait-il comment récupérer une adresse Mac provenant d'une éventuelle seconde carte reseau ?

cs_kilyn Messages postés 21 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 28 février 2002
20 févr. 2002 à 12:17

Salut !

J'ai trouvé sur "microsoft.fr" en tapant le mot clé "mac" dans la zone de recherche de la page d'accueil un meilleur code pour récupérer la mac adresse. Ce prog marche sur toutes les versions de windows. Mais je sais pas s'il est valable sous VB5 car je l'ai programmé en VB6.

Mais je te le donne quand même au cas où ça pourrait servir :

'A mettre dans un module
Public Const NCBASTAT As Long = &H33
Public Const NCBNAMSZ As Long = 16
Public Const NCBRESET As Long = &H32

Public Type NET_CONTROL_BLOCK
ncb_command As Byte
ncb_retcode As Byte
ncb_lsn As Byte
ncb_num As Byte
ncb_buffer As Long
ncb_length As Integer
ncb_callname As String * NCBNAMSZ
ncb_name As String * NCBNAMSZ
ncb_rto As Byte
ncb_sto As Byte
ncb_post As Long
ncb_lana_num As Byte
ncb_cmd_cplt As Byte
ncb_reserve(9) As Byte
ncb_event As Long
End Type

Public Type ADAPTER_STATUS
adapter_address(5) As Byte
rev_major As Byte
reserved0 As Byte
adapter_type As Byte
rev_minor As Byte
duration As Integer
frmr_recv As Integer
frmr_xmit As Integer
iframe_recv_err As Integer
xmit_aborts As Integer
xmit_success As Long
recv_success As Long
iframe_xmit_err As Integer
recv_buff_unavail As Integer
t1_timeouts As Integer
ti_timeouts As Integer
Reserved1 As Long
free_ncbs As Integer
max_cfg_ncbs As Integer
max_ncbs As Integer
xmit_buf_unavail As Integer
max_dgram_size As Integer
pending_sess As Integer
max_cfg_sess As Integer
max_sess As Integer
max_sess_pkt_size As Integer
name_count As Integer
End Type

Public Type NAME_BUFFER
name As String * NCBNAMSZ
name_num As Integer
name_flags As Integer
End Type

Public Type ASTAT
adapt As ADAPTER_STATUS
NameBuff(30) As NAME_BUFFER
End Type

Public Declare Function Netbios Lib "netapi32.dll" (pncb As NET_CONTROL_BLOCK) As Byte

Public Function MACAddress() As String
Dim macAdr As String
Dim ncb As NET_CONTROL_BLOCK
Dim adapter As ASTAT

ncb.ncb_command = NCBRESET
Call Netbios(ncb)

ncb.ncb_command = NCBASTAT
ncb.ncb_lana_num = 0
ncb.ncb_callname = "* "
ncb.ncb_buffer = VarPtr(adapter)
ncb.ncb_length = Len(adapter)

Call Netbios(ncb) 'renvoie entre autre la mac adresse dans une structure
For i = 0 To 5
macAdr = macAdr & Format$(Hex(adapter.adapt.adapter_address(i)), "00") & " "
Next i

macAdr = Trim(macAdr) 'Enlève les espces à droite et à gauche de la chaîne
MACAddress = macAdr

End Function

Private Sub Form_load()
MsgBox MACAddress
End Sub

cs_Ben Messages postés 1 Date d'inscription dimanche 30 décembre 2001 Statut Membre Dernière intervention 30 décembre 2001
30 déc. 2001 à 17:00

Bonjour,

J'ai un petit souci avec ce code... en effet il m'indique n'importe quoi sous win95...
J'utilise VB5 et pourtant il marche tres bien avec win98...
Pourriez vous m'indiquer s'il existe une solution à ce problème ?

D'avance merci et bravo pour ce superbe site...

Ben

Ben
9 nov. 2000 à 03:16

Votre site est excellent.
bonne continuation.

Discussions similaires

Erreur : Violation d'accès à l'adresse 00482976

violation d'acces en delphi

Violation d'adresse ......... dans le module

Recuperer une miniature d'une video

conjugaison en c++

Votre réponse

Discussions similaires