现在在一个局域网中我知道某些机器的机器名,
我能否根据这个机器名得到对方的IP地址??
请高手指教!谢谢!

解决方案 »

  1.   

    在Dos窗口中键入 tracert 机器名称
      

  2.   

    uses winsock;
    gethostbynameuses WinSock;function DomainName2IP(Name: string): string;
    var
      WSAData: TWSAData;
      HostEnt: PHostEnt;
    begin
      Result := '';
      WSAStartup(2, WSAData);
      HostEnt := gethostbyName(Name);
      if HostEnt = nil then Exit;
      with HostEnt^ do
        Result := PChar(Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[0]),
          Byte(h_addr^[0]), Byte(h_addr^[0])]));
      WSACleanup;
    end;