Obtener IP con el nombre del Equipo
 

Saludos,

Hace unos días estoy intentando obtener las IP que están dentro de la red muy en especial las PC, para ello se me ocurrió obtener los equipos en el Active Distory junto con las IP pero por el AD no logro obtener las IP, entonces estoy intentado obtener las IP con los nombres de los equipos pero no se me ocurre como. Saben alguna forma de hacerlo? :confused:

Hola Rc96

yo utilizo la siguiente funciónes para saber la IP del equipo y el nombre del equipo

Código Delphi [-]

uses
  Types, Winapi.Windows, Winsock;

function GetComputerName: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if Winapi.Windows.GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;

function GetIPSystem: string;
var
  wVersionRequested: WORD;
  wsaData: TWSAData;
  p: PHostEnt;
  s: array[0..128] of char;
begin
   {Start up WinSock}
  wVersionRequested := MAKEWORD(1, 1);
  WSAStartup(wVersionRequested, wsaData);

   {Get the computer name}
  GetHostName(@s, 128);
  p := GetHostByName(@s);

   {Get the IpAddress}
  Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);

   {Close WinSock}
  WSACleanup;
end;

No se si en las ultimas versiones de DELPHI ya incluirá algunas funciones que lo hagan mas directamente

Un saludo

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.

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.