Adresse MAC
winocam
Messages postés
12
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
6 juillet 2006
-
4 juil. 2006 à 18:10
yvessimon Messages postés 637 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 9 janvier 2017 - 6 juil. 2006 à 15:14
yvessimon Messages postés 637 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 9 janvier 2017 - 6 juil. 2006 à 15:14
5 réponses
cs_jfs59
Messages postés
178
Date d'inscription
mardi 29 avril 2003
Statut
Membre
Dernière intervention
2 février 2010
5 juil. 2006 à 11:35
5 juil. 2006 à 11:35
si c'était possible on pourrait récupérer l'adresse mac d'un portable situé dans la sacoche posée sur la table du bureau de la secretaire du patron ... chouette
Cordialement jfs.
<hr size="2" width="100%" />
Tout est en tout et réciproquement ...
Cordialement jfs.
<hr size="2" width="100%" />
Tout est en tout et réciproquement ...
winocam
Messages postés
12
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
6 juillet 2006
5 juil. 2006 à 14:19
5 juil. 2006 à 14:19
Merci jfs, très aimable et perspicace en plus...
yvessimon
Messages postés
637
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017
6 juil. 2006 à 13:29
6 juil. 2006 à 13:29
Bonjour,
Voici 2 fonctions
GetMACAddress donne l'adrese MAC , sans connexion au réseau
//
function TForm1.GetAdapterInfo(Lana: Char): String;
var
Adapter: TAdapterStatus;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBRESET);
NCB.ncb_lana_num := Lana;
if Netbios(@NCB) <> Char(NRC_GOODRET) then
begin
Result := 'mac not found';
Exit;
end;
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBASTAT);
NCB.ncb_lana_num := Lana;
NCB.ncb_callname := '*';
FillChar(Adapter, SizeOf(Adapter), 0);
NCB.ncb_buffer := @Adapter;
NCB.ncb_length := SizeOf(Adapter);
if Netbios(@NCB) <> Char(NRC_GOODRET) then
begin
Result := 'mac not found';
Exit;
end;
Result :=
IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[5]), 2);
end;
function TForm1.GetMACAddress: string;
var
AdapterList: TLanaEnum;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBENUM);
NCB.ncb_buffer := @AdapterList;
NCB.ncb_length := SizeOf(AdapterList);
Netbios(@NCB);
if Byte(AdapterList.length) > 0 then
Result := GetAdapterInfo(AdapterList.lana[0])
else
Result := 'mac not found';
end;
//
yvessimon
Voici 2 fonctions
GetMACAddress donne l'adrese MAC , sans connexion au réseau
//
function TForm1.GetAdapterInfo(Lana: Char): String;
var
Adapter: TAdapterStatus;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBRESET);
NCB.ncb_lana_num := Lana;
if Netbios(@NCB) <> Char(NRC_GOODRET) then
begin
Result := 'mac not found';
Exit;
end;
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBASTAT);
NCB.ncb_lana_num := Lana;
NCB.ncb_callname := '*';
FillChar(Adapter, SizeOf(Adapter), 0);
NCB.ncb_buffer := @Adapter;
NCB.ncb_length := SizeOf(Adapter);
if Netbios(@NCB) <> Char(NRC_GOODRET) then
begin
Result := 'mac not found';
Exit;
end;
Result :=
IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[5]), 2);
end;
function TForm1.GetMACAddress: string;
var
AdapterList: TLanaEnum;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBENUM);
NCB.ncb_buffer := @AdapterList;
NCB.ncb_length := SizeOf(AdapterList);
Netbios(@NCB);
if Byte(AdapterList.length) > 0 then
Result := GetAdapterInfo(AdapterList.lana[0])
else
Result := 'mac not found';
end;
//
yvessimon
winocam
Messages postés
12
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
6 juillet 2006
6 juil. 2006 à 14:36
6 juil. 2006 à 14:36
Désolé, mais même avec GetMACAddress si je débranche mon câble réseau la fonction me retourne "mac not found" !
Tu utilises bien l'unité NB30 pour le composant TAdapterStatus ?
Merci
Tu utilises bien l'unité NB30 pour le composant TAdapterStatus ?
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
yvessimon
Messages postés
637
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017
6 juil. 2006 à 15:14
6 juil. 2006 à 15:14
GetMACAddress appel GetAdapterInfo .
Avec certaines versions de windows cela fonctionne bien. J'ai windows 2000.
Il est vrai que j'ai testé en débranchant seulement le câble réseau ,
le PC été déja sous tension et connecté au réseau, le système à dû
gardé en mémoire des informations.
Désolé je n'en sais pas plus.
Salutations
yvessimon
Avec certaines versions de windows cela fonctionne bien. J'ai windows 2000.
Il est vrai que j'ai testé en débranchant seulement le câble réseau ,
le PC été déja sous tension et connecté au réseau, le système à dû
gardé en mémoire des informations.
Désolé je n'en sais pas plus.
Salutations
yvessimon
