Obtener IP con el nombre del Equipo

[Rc96]

Saludos Bucanero,


El codigo que enviaste funciona pero ya lo habia visto, el problema es que en el sistema yo ya obtengo el nombre de todos los equipos en el dominio y lo que quiero es recorrer cada linea donde esta el nombre del equipo y obtener la ip del mismo de forma remota. La informacion que enviaste es de provecho lo que no entiendo es si con ella pueda darle yo mismo el nombre del equipo y traerme su ip.



Gracias por tu colaboracion.

[[escafandra]]

Código Delphi [-]
function GetIp(Host: AnsiString): string;
var
  WSAData: TWSADATA;
  HostEnt: phostent;
begin
  Result:= '';
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    HostEnt:= gethostbyname(PAnsiChar(Host));
    if HostEnt <> nil then
      Result:= inet_ntoa(PInAddr(HostEnt.h_addr_list^)^);
    WSACleanup;
  end;
end;

Saludos.