关于网络的问题(50分)

如果在局域网中知道一台计算机的名字，如何知道它的IP？

ping 机器名

这个办法我知道！
我想知道的是如何写程序或函数或其他的DOS命令！

nbtstat -c

以前的答案里肯定有好多！

uses winsock;

function GetIP(hostName:string):string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
sIP: string;
begin
WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(hostName));
if HostEnt <> nil then
begin
with HostEnt^ do
sIP := Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
end;
WSACleanup;
result:= sIP;
end;

接受答案了.