关于获得远程机器的IP问题！

Question

请教大家：如果机器名为sComputerName的远程机器有两个IP，一个内网IP，一个外网IP，我在本地执行下面的函数，请问返回的IP是外网IP还是内网IP？？谢谢指教！function ComputerNameToIP(sComputerName:String):String;
var
   WSAData: TWSAData;
   HostEnt: PHostEnt;
begin
    result:='';
    WSAStartup(2, WSAData);
    HostEnt := GetHostByName(PChar(sComputerName));
    if HostEnt <> nil then
    begin
        with HostEnt^ do
            result:= Format('%d.%d.%d.%d', [Byte(h_addr^[0]),        Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
    end;
    WSACleanup;
end;

Answer 1

如果你的机器同它联通是使用外部IP则返回的是外部IP，否则是内部IP。

Answer 2

{计算机名到IP地址,DomainToIp}
function DomainToIp(Domain :PChar):String;
var
   HostEnt: PHostEnt;
begin
 Result := '';
 HostEnt := gethostbyName(domain);
 if HostEnt = nil then
    Exit;
 with hostEnt^ do
   Result := PChar(Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]),
     Byte(h_addr^[2]), Byte(h_addr^[3])]));
end;