| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Простой вопрос! Подскажите, как узнать серийный номер сетевой кар [D7, WinXP]

gris ©   (2004-10-21 11:12:00) 

Простой вопрос! Подскажите, как узнать серийный номер сетевой карточки

---

Grundic   (2004-10-21 12:35:00) [1]

На MAC-адрес:

const
del = '-';

function 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) + del +
 IntToHex(Byte(Adapter.adapter_address[1]), 2) + del +
 IntToHex(Byte(Adapter.adapter_address[2]), 2) + del +
 IntToHex(Byte(Adapter.adapter_address[3]), 2) + del +
 IntToHex(Byte(Adapter.adapter_address[4]), 2) + del +
 IntToHex(Byte(Adapter.adapter_address[5]), 2);
end;

function 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;


---

DVM   (2004-10-21 11:14:00) [2]

http://www.yandex.ru/yandsearch?rpt=rad&text=MAC-%E0%E4%F0%E5%F1+Delphi

---

Наверх