Obtener IP con el nombre del Equipo

[[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.