بدست آوردن سریال و یا mac address مودم

با سلام
من دنبال کدی برای پیدا کردن سریال مودم و مک آدرس آن میباشم خواهشمند است کمکم نمائید

با استفاده از این Dll می توانید این کار را انجام دهید.

موفق باشید :flower:

نقل قول:

---

نوشته شده توسط Touska

با استفاده از این Dll می توانید این کار را انجام دهید.

موفق باشید :flower:

---

ببخشيد كدوم dll...

به دلیل Upgrade سیستم سایت به vBulletin ضمیمه های پست های قدیمی در آن زمان حذف شدند.

نقل قول:

---

نوشته شده توسط Touska

با استفاده از این Dll می توانید این کار را انجام دهید.

موفق باشید :flower:

---

من اینو لازم دارم اگه لطف کنید ممنون میشم

حالشو ببر :

library MacAddress;



uses

  SysUtils,

  Classes,

  NB30,

  Dialogs,

  Windows;



Function GetAdapterInfo(Lana: Char): ShortString;

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 := 'Error';

   MessageDlg('Error',mtError,[mbok],0);

   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 := 'Error';

   MessageDlg('Error',mtError,[mbok],0);

   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 GetMACAddress: ShortString;

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

  Begin

   Result := 'Error';

   MessageDlg('Error',mtError,[mbok],0);

  End;

End;



Exports

 GetMACAddress;        //Exports Function



begin

end.