ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽgｿｽ正托ｿｽｿｽY 2010/02/26(ｿｽｿｽ) 00:25:16

MACｿｽAｿｽhｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽA

ｿｽRｿｽ`ｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅは趣ｿｽｿｽﾈゑｿｽPCｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽｿｽ
ｿｽﾂ具ｿｽｿｽﾉゑｿｽｿｽｿｽﾄの不ｿｽｿｽｿｽ閧ｳｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ表ｿｽLｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌにはなゑｿｽﾌでゑｿｽｿｽｿｽ

http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+201002/10020060.txt

ｿｽｿｽｿｽﾜゑｿｽMACｿｽAｿｽhｿｽｿｽｿｽXｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

monaa 2010/02/26(ｿｽｿｽ) 00:59:26

ｿｽｿｽｿｽｿｽｿｽ[ｿｽgPCｿｽｿｽmacｿｽAｿｽhｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽｿｽｿｽ逑厄ｿｽRｿｽA
ｿｽｿｽｿｽｿｽPCｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾌプｿｽｿｽｿｽgｿｽRｿｽｿｽｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽｿｽﾎ取得ｿｽﾍ不ｿｽﾂ能ｿｽﾅゑｿｽｿｽB
ｿｽmｿｽｿｽｿｽｿｽmacｿｽAｿｽhｿｽｿｽｿｽXｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾈゑｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽョ。
http://homepage3.nifty.com/sugaku/Mac.htm

ｿｽgｿｽ正托ｿｽｿｽY 2010/02/26(ｿｽｿｽ) 02:22:21

ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌは趣ｿｽｿｽｿｽｿｽｿｽMACｿｽAｿｽhｿｽｿｽｿｽXｿｽﾈのでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

k 2010/02/26(ｿｽｿｽ) 11:17:51

http://homepage1.nifty.com/MADIA/delphi/delphi_bbs/200111/200111_01110008.html
ｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
MSDNｿｽﾖのｿｽｿｽｿｽｿｽNｿｽｿｽｿｽﾘゑｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
[SDK32] ｿｽCｿｽ[ｿｽTｿｽlｿｽbｿｽg ｿｽAｿｽ_ｿｽvｿｽ^ｿｽｿｽMACｿｽAｿｽhｿｽｿｽｿｽXｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽ 
http://support.microsoft.com/kb/118623/ja

ｿｽﾜゑｿｽIPHELPERｿｽｿｽ
GetIfTable API
GetAdaptersInfo API
ｿｽﾈどでゑｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽgｿｽ正托ｿｽｿｽY 2010/02/26(ｿｽｿｽ) 17:33:41

kｿｽlｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽA
http://homepage1.nifty.com/MADIA/delphi/delphi_bbs/200111/200111_01110008.html

ｿｽRｿｽ`ｿｽｿｽｿｽﾌほゑｿｽｿｽｿｽｿｽｿｽﾝてみゑｿｽｿｽﾌでゑｿｽｿｽｿｽDelphi2010ｿｽﾅはゑｿｽｿｽﾌままでは難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾙどゑｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

monaa 2010/02/26(ｿｽｿｽ) 18:15:35

ｿｽﾅゑｿｽｿｽｿｽﾎ掲ｿｽｿｽｿｽﾂのｿｽｿｽ[ｿｽｿｽｿｽﾊは把ｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅは難ｿｽｿｽしｿｽﾈゑｿｽｿｽ鼾ｿｽAｿｽﾇゑｿｽﾈエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽﾌゑｿｽｿｽﾜで擾ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆ対会ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽｿｽけｿｽﾅにゑｿｽｿｽﾌゑｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽｿｽﾛ々ｿｽRｿｽsｿｽ[ｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
Button1.onClickｿｽｿｽｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄ以会ｿｽｿｽﾌソｿｽ[ｿｽXｿｽｿｽRｿｽsｿｽyｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽVista Delphi2009ｿｽﾅゑｿｽｿｽB

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  nb30;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private ｿｽ骭ｾ }
  public
    { Public ｿｽ骭ｾ }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//http://homepage1.nifty.com/MADIA/delphi/delphi_bbs/200111/200111_01110008.html
function GetMacAdress:string;
type
  PAstat = ^TAstat;
  TAstat = packed record
  adapt: TAdapterStatus;
  NameBuff: array [0 .. 29] of TNameBuffer;
  end;
var
  Adapter: TAstat;
  Ncb: TNCB;
  RetCode: Integer;
  lenum: TLanaEnum;
  i: integer;
begin
  Result := '';
  FillChar(Ncb, SizeOf(NCB), 0);
  Ncb.ncb_command := Char(NCBENUM);
  Ncb.ncb_buffer := @lenum;
  Ncb.ncb_length := SizeOf(lenum);
  RetCode := Integer(Netbios( @Ncb ));
  //Memo1.Lines.Add( 'The NCBENUM return code is: $' + IntToHex(RetCode, 2) );

  for i := 0 to integer(lenum.length)-1 do
  begin
    FillChar(Ncb, SizeOf(NCB), 0);
    Ncb.ncb_command := Char(NCBRESET);
    Ncb.ncb_lana_num := lenum.lana[i];
    RetCode := Integer(Netbios( @Ncb ));
    //Memo1.Lines.Add( 'The NCBRESET on LANA ' + IntToStr(Integer(lenum.lana[i]))
    //                +' return code is: $' + IntToHex(RetCode, 2) );
    FillChar(Ncb, SizeOf(NCB), 0);
    Ncb.ncb_command := Char(NCBASTAT);
    Ncb.ncb_lana_num := lenum.lana[i];
    Ncb.ncb_callname := '* ';
    Ncb.ncb_buffer := @Adapter;
    Ncb.ncb_length := SizeOf(Adapter);
    RetCode := Integer(Netbios( @Ncb ));
    //Memo1.Lines.Add( 'The NCBASTAT on LANA ' + IntToStr(Integer(lenum.lana[i]))
    //                +' return code is: $' + IntToHex(RetCode, 2) );
    if RetCode = 0 then
    begin
      Result := Result +
                   IntToHex(integer(Adapter.adapt.adapter_address[0]), 2)
           + '-' + IntToHex(integer(Adapter.adapt.adapter_address[1]), 2)
           + '-' + IntToHex(integer(Adapter.adapt.adapter_address[2]), 2)
           + '-' + IntToHex(integer(Adapter.adapt.adapter_address[3]), 2)
           + '-' + IntToHex(integer(Adapter.adapt.adapter_address[4]), 2)
           + '-' + IntToHex(integer(Adapter.adapt.adapter_address[5]), 2) + #$D#$A;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetMacAdress);
end;

end.

ｿｽgｿｽ正托ｿｽｿｽY 2010/02/26(ｿｽｿｽ) 19:03:28

monaaｿｽlｿｽAｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽAｿｽfｿｽｿｽｿｽ轤ｵｿｽｿｽｿｽB

ｿｽﾙゑｿｽﾆゑｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.