获取远程主机MAC地址的新思路及实现

nder: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
var
MyStream:TMemoryStream;
mac_str:array[1..6]of byte;
NumOfNames:byte;
begin
if numberbytes>0 then  //如果接收的数据包字节数>0,则处理数据包
begin
  MyStream:=TmemoryStream.Create;
  try
    NMUDP1.readstream(MyStream); //把接收到的数据包，读到内存中
    MyStream.Seek(56,SoFromBeginning);//定位至Number Of Names字段
    MyStream.Read(NumOfNames,1); //获取 Number Of Names字段的值

    MyStream.Seek(NumOfNames*18,soFromCurrent); //定位至Unit ID字段
    MyStream.Read(mac_str[1],6); //获取Unit ID字段的值
    edit4.Text:=inttohex(mac_str[1],2)+'-'+  //将目的主机的MAC地址格式化输出
    inttohex(mac_str[2],2)+'-'+
    inttohex(mac_str[3],2)+'-'+
    inttohex(mac_str[4],2)+'-'+
    inttohex(mac_str[5],2)+'-'+
    inttohex(mac_str[6],2);
    finally
      MyStream.Free;
    end;
  end;
end;
4结束语
这种方法的优点是：获取（扫描）MAC地址的效率较高。
一般针对某远程主机一次发送一个“UDP－NetBIOS－NS”询问包（当然具体发送几个，可以在程序中自己设定）即可，而不像其他也可获取MAC地址的方法，例如Winsock API函数Gethostbyaddr或者Netbios函数，执行的时候会发送多个“UDP－NetBIOS－NS”询问包，这样不但影响了获取速度，而且重复发送没必要。

当然，该方法除了可以获取MAC地址外，还可以很容易地获取远程主机的NetBIOS Name信息（即主机名、所在工作组等）。而且在本程序的基础上，也很容易地实现对指定IP地址段的MAC地址扫描，即批量获取MAC地址，不再赘述。

参考文献：
[1].《Window网络编程技术》Anthory Jones,Jim Ohlund

上一页  [1] [2]