请问有什么办法列出NT下所有网卡的列表并取得它们的IP地址？

Question

如题，谢谢！

Answer 1

implementation
uses SysUtils, Windows, NB30;
function GetNetBIOSAddress : string;
var  ncb  : TNCB;
  status  : TAdapterStatus;
  lanenum : TLanaEnum;  procedure ResetAdapter (num : char);
  begin
    fillchar(ncb,sizeof(ncb),0);
    ncb.ncb_command:=char(NCBRESET);
    ncb.ncb_lana_num:=num;
    Netbios(@ncb);
  end;var
  lanNum  : char;
  address : record
             part1 : Longint;
             part2 : Word;//Smallint;
            end absolute status;
begin
  Result:='';  fillchar(ncb,sizeof(ncb),0);
    ncb.ncb_command:=char(NCBENUM);
    ncb.ncb_buffer:=@lanenum;
    ncb.ncb_length:=sizeof(lanenum);
  Netbios(@ncb);  if lanenum.length=#0 then exit;
  lanNum:=lanenum.lana[0];  ResetAdapter(lanNum);  fillchar(ncb,sizeof(ncb),0);
    ncb.ncb_command:=char(NCBASTAT);
    ncb.ncb_lana_num:=lanNum;
    ncb.ncb_callname[0]:='*';
    ncb.ncb_buffer:=@status;
    ncb.ncb_length:=sizeof(status);
  Netbios(@ncb);
  ResetAdapter(lanNum);  Result:=Format('%x%x',[address.part1,address.part2]);
end;

Answer 2

To Kshape([伟大的大伟!]):
    我试了半天，发现你给的是MAC地址:-)
    我想要的是IP地址，和网卡的名称，如“VMware Virtual Ethernet Adapter for VMnet1”。    不过还是多谢你的回答！结贴的时候一定给分。