（即在局域网内,知道IP查MAC地址，知道MAC地址查IP）你可以使用arp程序（WINDOWS自带）eg: arp -a 192.168.0.1如果使用程序查的话，你需要去实现一个ARP、RARP协议的软件如果只是查看一下对应关系，可以登陆到以太网交换机上查看IP和MAC之间的对应在Windows9x中，可按如下思路进行：1、建立局域网内IP地址--MAC地址对照表：调用icmp.dll中的IcmpSendEcho函数对一个地址发一个ping操作。
成功后马上调用Iphlpapi.dll中的GetIpNetTable函数来取所有的ARP表，从中找出所关心的MAC地址。
保存IP地址和MAC地址。
依此类推，取得局域网内所有IP地址和MAC地址的对照表。
（可取范围为IPADDR and SUBMASK 子网范围内的对照表）2、做一个查询界面。
Windows2000中，应该可以更简单一些。
因为它支持更多的函数如SendARP。
IP to MAC 较容易：方法1. DOS命令: nbtstat -a IP方法2. DOS命令: ping IP 然后arp -a方法3. 仿照nbtstat，向对方的137端口发数据包，包的内容如下（C代码）BYTE b[50]={0x0,0x00,0x0,0x10,0x0,0x1,0x0,0x0,0x0,0x0,0x0,0x0,0x20,0x43,0x4b,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x0,0x0,0x21,0x0,0x1};（这是发nbtstat命令后用IPMan截获的），对方会向你返回一个数据包，其中有对方的工作组，主机名，用户名，MAC地址。
当然，返回包的格式要自己分析，也可以查RFC文档。
你自己的端口可以随便取一个值。
方法4.在win9x下可用IPMan直接发ARP。
方法5.在win2000下可用SendArp()直接发ARP。
----------------------------------------------------------------MAC to IP似乎较困难。
Win9x下IPMan有此项功能，但我试了一下似乎不行。
来自：zw84611, 时间：2001-10-7 19:37:00, ID：659172发出去了，是用VC写的。
因为我不喜欢Delphi5 的udp控件。
其实用delphi也一样。
很简单的，就是向对方137端口发内容为BYTE b[50]={0x0,0x00,0x0,0x10,0x0,0x1,0x0,0x0,0x0,0x0,0x0,0x0,0x20,0x43,0x4b,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x41,0x0,0x0,0x21,0x0,0x1};的UDP包（Delphi中用$代替0x)，对方就会给你应答，你接收就是了。
Delphi源码如下，其中UDP用Socket API实现。
-------------------------------------------------------unit udp;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, winso ck,StdCtrls;constWM_SOCK = WM_USER + 1; //自定义windows消息UDPPOR T = 6767; //设定UDP端口号NBTPORT = 137;typeTfrmmain = class(TForm)Button1: TButton;ListBox1: TListBox;Edit1: TEdit;procedure FormCreate(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure Button1Click(Sender: TObject);private{ Private declarations }s: TSocket;addr: TSockAddr;FSockAddrIn : TSockAddrIn; //利用消息实时获知UDP消息procedure ReadData(var Message: TMessage); message WM_SOCK;public{ Public declarations }procedure SendData(b:array of byte);end;varfrmmain: Tfrmmain;implementation{$R *.DFM}procedure Tfrmmain.FormCreate(Sender: TObject);varTempWSAData: TWSAData;//optval: integer;begin// 初始化SOCKETif WSAStartup($101, TempWSAData)=1 thenshowmessage('StartUp Error!');s := Socket(AF_INET, SOCK_DGR AM, 0);if (s = INVALID_SOCKET) then //Socket创建失败beginshowmessage(inttostr(WSAGetLastError())+' Socket创建失败');CloseSocket(s);end;//本机SockAddr绑定addr.sin_family := AF_INET;addr.sin_addr.S_addr := INADDR_ANY;addr.sin_port := htons(UDPPOR T);if Bind(s, addr, sizeof(addr)) <> 0 thenbeginshowmessage('bind fail');end;WSAAsyncSelect(s, frmmain.Handle , WM_SOCK, FD_READ);//对方SockAddrIn设定FSockAddrIn.SIn_Family := AF_INET;FSockAddrIn.SIn_Port := htons(NBTPOR T);end;procedure Tfrmmain.FormClose(Sender: TObject; var Action: TCloseAction); beginCloseSocket(s);end;procedure GetInfo(buf: Array of byte);{这个过程是根据返回报文的内容凑出来的，偶尔会出错。
如果能根据报文格式的定义来做（可查阅相关RFC文档，可惜我没时间，以后做吧），就更好了。
如果你作出来了，不妨寄给我一个哟。
e-mail:zw84611@}var bAdd,bMac:boolean;str,strHost,strHex,strMac:string;tem,i,j:integer;beginbAdd:=true;strHost:='';strHex:='';tem:=0;for i:=57 to 500 do //57-72beginif(Buf[i]=$cc)then break;if(Buf[i]=$20)then bAdd:=false;if(bAdd)thenbeginstr:=char(Buf[i]);strHost:=strHost+str;str:=Format('%x.',[Buf[i]]);strHex:=strHex+str;end;inc(tem);if(tem mod 18=0)thenbeginbAdd:=true;Trim(strHex);bMac:=true;for j:=1 to length(strHex) do if strHex[j]>'0' then bMac:=false;//showmessage(strHex);if(bMac)thenwith frmmain.ListBox1 dobeginI tems.Delete(items.count-1);I tems.add('mac address:');Delete(strMac,17,length(strMac)-17);I tems.Add(strMac);break;end;frmmain.ListBox1.items.Add(strHost);strMac:=strHex;strHost:='';strHex:='';end;end;end;procedure Tfrmmain.ReadData(var Message: TMessage);varbuffer: Array [1..500] of byte;len{,i}: integer;flen: integer;Event: word;value: string;beginvalue:='';Event := WSAGetSelectEvent(Message.LParam);if Event = FD_READ thenbeginlen := recvfrom(s, buffer, sizeof(buffer), 0, FSockAddrIn, flen);{for i:=1 to len do value:=value+format('%x',[buffer[i]]);ListBox1.items.add(value);value:='';for i:=1 to len do if char(buffer[i])<>#0 then value:=value+char( buffer[i]);ListBox1.items.add(value);}if len<> 0 then GetInfo(buffer);end;end;procedure Tfrmmain.SendData(b:array of byte);varlen: integer;beginFSockAddrIn.SIn_Addr.S_addr := inet_addr(pchar(edit1.text));len := sendto(s, b[0],50, 0, FSockAddrIn, sizeof(FSockAddrIn));//if (WSAGetLastError() <> WSAEWOULDBLOCK) and (WSAGetLastError() <> 0) then showmessage(inttostr(WSAGetLastError()));if len = SOCKET_ERROR thenshowmessage('send fail');if len <> 50 thenshowmessage('Not Send all');end;procedure Tfrmmain.Button1Click(Sender: TObject);const NbtstatPacket:array[0..49]of byte=($0,$0,$0,$10,$0,$1,$0,$0,$0,$0,$0,$0,$20,$43,$4b,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$41,$0,$0,$21,$0,$1);beginsenddata(NbtstatPacket);end;end.Top2 楼nicebigben（老菜）回复于 2003-01-23 11:56:54 得分0谢谢！Top3 楼windstrom（ORCLDBA）回复于 2003-01-23 16:14:52 得分0在iphlpapi.dll里面有一个函数：GetAdaptersInfo()好像是干这个用的。