如何通過IP得到對方的電腦名稱和網卡的物理地址？

[joshua8888]

給定一個IP，怎樣獲取它的名稱和MAC地址呢？
請各位幫幫小弟，謝了.

[justcall]

对方的电脑名称可以，mac地址怕是难得到吧。

[XXSingle]

这里有个函数，得计算机名：
function iptoname(ip:string):string;
var
WSAData:TWSAData;
p:PHostEnt;
InetAddr:dword;
begin
WSAStartup(2, WSAData);
InetAddr:= inet_addr(PChar(IP));
try
p:=GetHostByAddr(@InetAddr, Length(IP), PF_Inet);
result:=p^.h_name;
except
result:='';
end;
end;