Determinar el nombre de una pc remota

[JoeyJordison]

Eso mismo Como determinar el nombre o id de red de una pc sobre tcp/ip

[[Bicho]]

Hola, volviendo otra vez a la sección de trucos. Este o este pueden ayudarte.

Espero te sirva.

Saludos

[JoeyJordison]

Si bicho te entiendo, el primer hilo lo que hace es devolverme el nombre de mi misma pc y el segundo no se habre parece haber problemas con la pag, pero lo que yo necesito es saber el nombre de una pc remota. Espero me entiendas

Salu2

[[seoane]]

¿pero con que datos cuentas para identificar a la PC remota? ¿la ip? ¿la MAC? ¿el color?

[[Bicho]]

Empezado por JoeyJordison

Si bicho te entiendo, el primer hilo lo que hace es devolverme el nombre de mi misma pc y el segundo no se habre parece haber problemas con la pag

No se que ha pasado, yo juraria que he visto el truco, por eso lo he copiado y lo he puesto.
No entiendo nada.

Apoyo a Domingo, quizá si dieras más datos en tus preguntas podríamos ayudarte mejor.

Saludos

[JoeyJordison]

Tengo el Ip del Pc, es decir mi aplicacion detecta su ip haciendo un ping pero quiero que ademas de detectar su ip me detecte su nombre o id de red.

[[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'));