Excel : Macro pour récupération de l'adresse de carte réseau

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Excel : Macro pour récupération de l'adresse de carte réseau

papi67

J'ai un fichier sous excel dont je voudrai limiter la diffusion à certaines personnes, mais aussi que celles-ci ne puissent pas le communiquer à d'autres sans mon accord.
L'utilisation d'un mot de passe n'est donc pas la solution.
Pour cela j'ai pensé utiliser leur adresse de la carte réseau (Imac) afin qu'il ne puisse pas l'utiliser sur un autre pc que celui pour lequel j'ai délivré l'autorisation.

Comment récupérer l'adresse Mac de la carte réseau ?

Si quelqu'un posséde la macro ou peut me l'écrire ce sera sympa car mes connaissances sont actuellement celle d'un débutant en macro.

Merci d'avance.

Publicité

knakes

Source : microsoft.com
Dans un module

Code :

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

Là ou on veut récuperer la valeur de l'adresse mac :

Code :

MsgBox MACAddress 'par exemple

Voilà

Edit : toutefois, il est possible de changer l'adresse MAC d'une carte réseau ...

Message édité par knakes le 22-03-2005 à 20:44:54

papi67

Merci knakes je vais tester ce que tu m'a transmis.

stagiaire6

tout est relatif

Ben moi ca me plaiser ce post pour une fois que je trouver ma reponce meme si c'etait pas en VBS.... mais voilas ca marche pas...

PKOI TANT DE ... HEU... PFFFF....

stagiaire6

tout est relatif

Public Const NCBASTAT As Long = &H33
Public Const NCBNAMSZ As Long = 16
Public Const NCBRESET As Long = &H32

pourkoi excel il me dit que c'est pas bon???

j'y pige rien a ce truc de M....

@+

AlainTech

Pas trouvé? Cherche encore!

Enlève le mot Public et mets tes déclarations de constantes dans la partie Déclarations de ton module.

Message édité par AlainTech le 15-06-2005 à 10:12:30

stagiaire6

tout est relatif

WHHHAAAAAAZZZAAAAAA!!!!! Tu veut que je fasse koi??? que je vire public ok ca je comprend mais le reste tu me parle pas chinois mais presque... merci quand meme...

@++

AlainTech

Pas trouvé? Cherche encore!

La partie Déclarations, c'est la partie du code qui est avant les procédures et les fonctions.

stagiaire6

tout est relatif

heu..... genre...

private sub lol_initialize()
dim kikoo as string
dim lol as integer
const ncbastat as long = &H33
Cont NCBNAMSZ As Long =16
Const NCBRESET As Long = &H32

blbblblbllbbllblbblbllblblb...
end sub

et tout le programme derriere???

@++

AlainTech

Pas trouvé? Cherche encore!

AVANT les Sub et Function.

T'arrive-t-il de regarder les 2 listes déroulantes qui sont en haut de la fenêtre où tu tapes le code?

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

Publicité

stagiaire6

tout est relatif

// Dans un module //

voilas trois mots que j'avait mal lus et qui explique le pourquoi du comment ca marcher pas...

enfin voilas le programme marche et il est dans un module le probleme est j'ai comme adresse mac 00 00 00 00 00 00 .
Ce qui vous en conviendrai n'est pas mon address mac.

y a t il encore un truc que j'aurai slu de travers ou est ce quelque chose que j'aurais put oublier.

pour avoir ce resultat j'ai cree un msgbox qui sort la macadress je pense que ca vien du fait que je lance pas la macro avant d'appeller sa variable de sortie. qu'en penser vous?

@++

stagiaire6

tout est relatif

personnes a une idee? :'(

AlainTech

Pas trouvé? Cherche encore!

Oui, mais je n'aurai pas de réponse avant ce soir.

Tu as certainement une connexion RAS (carte d'accés à distance, comme on disait sout Win98).

A mon avis, tu prends l'adresse de cette carte.

Pour en être certain, si tu peux encore le faire, lance une connexion par modem et refais le test.

stagiaire6

tout est relatif

nan desoler je peut pas faire par modem...
mais oui c'est bien une connetion RAS pour mon bureau. Tous le monde marche comme ca ici, et comme tu me la dis apparement, je prend l'adresse mac de la conection. 00:00:.... ect

j'espere pouvoir trouver un moyen pour que ca marche. Mon boss il veut pouvoir avoir l'adress mac du pc malgres le connection RAS

allez @+ et merci de m'aider

Message édité par stagiaire6 le 28-06-2005 à 11:26:44

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Excel : Macro pour récupération de l'adresse de carte réseau

Sujets relatifs
problème de récupération substr	Recuperation Code Source d'une page ASP, pour mettre dans une variable
renvoi de cellule(excel) en vba	CreateObject("Excel.Application") ne crée pas l'objet !
syncronisation d'un player video via le reseau	Excel : Macro pour création classeur protégé
Syntaxe pour faire une requete sql sur un fichier Excel ?	Rechercher un terme dans différentes feuilles excel
VBA macro pb
Plus de sujets relatifs à : Excel : Macro pour récupération de l'adresse de carte réseau

Page générée en 0.092 secondes