Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo Hace 1 Semana
Rc96 Rc96 is offline
Miembro
NULL
 
Registrado: ago 2017
Posts: 65
Poder: 2
Rc96 Va por buen camino
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?
Responder Con Cita
  #2  
Antiguo Hace 1 Semana
bucanero bucanero is offline
Miembro
NULL
 
Registrado: nov 2013
Ubicación: Almería, España
Posts: 114
Poder: 6
bucanero Va por buen camino
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
Responder Con Cita
  #3  
Antiguo Hace 1 Semana
Rc96 Rc96 is offline
Miembro
NULL
 
Registrado: ago 2017
Posts: 65
Poder: 2
Rc96 Va por buen camino
Talking

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.
Responder Con Cita
  #4  
Antiguo Hace 1 Semana
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
NULL
 
Registrado: nov 2007
Posts: 1.954
Poder: 14
escafandra Va camino a la famaescafandra Va camino a la fama
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.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problema con cambiar el nombre de Equipo Delphi01 API de Windows 3 28-05-2016 03:19:33
Obtener el nombre del primero usuario logeado en otro equipo. cHackAll Trucos 0 24-01-2008 20:22:26
Nombre del equipo jorgegetafe Varios 2 21-10-2007 15:03:36
Nombre de equipo en xp vicvil Tablas planas 7 07-05-2007 03:28:13
Nombre equipo y usuario pjmedina API de Windows 3 22-02-2007 14:36:45


La franja horaria es GMT +2. Ahora son las 04:39:50.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi