Determinar el nombre de una pc remota

[[seoane]]

Si te sirve encontrar el nombre del host, prueba con esto:

Código Delphi [-]
uses WinSock;

function ResolveIP(IP: String): String;
var
  Addr: dword;
  HostEnt: PHostEnt;
  WSAData: TWSADATA;
begin
  Result:= EmptyStr;
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    Addr:= inet_addr(PChar(IP));
    if Addr <> INADDR_NONE then
    begin
      HostEnt:= gethostbyaddr(@Addr, SizeOf(Addr), AF_INET);
      if HostEnt <> nil then
        Result:= String(PChar(HostEnt^.h_name));
    end;
    WSACleanup;
  end;
end;

// Por ejemplo
ShowMessage(ResolveIP('212.34.137.176'));