3 replies to this topic

[JoAnCa]

Hola a todos

Pues eso, hay alguna forma de determinar mediante codigo delphi, si dando la IP saber el tipo de dispositivo que es?

Si es un router o un PC

 

Aunque generalmente (en mis subredes) la IP de los router termina con 1 (x.x.x.1),  no puedo tomarlo como criterio, por si casualmente hay alguno q no sea asi.

 

El problema es al obtener determinados datos del hardware, dominio y otros, que un router no tiene, y mi software se queda "dormido" o se bloquea cuando le hace el escaneo a un router.

 

Esto es en el caso de cuando hago una exploracion completa de la red, recorriendo un rango de IPs

 

Lo mismo me sucede con los servidores linux, pero eso pudiera ser tema para otro post

 

[JoAnCa]

Como todavia no he podido identificar a los routers, por ahora lo que haré es tomar el criterio de la IP terminar 1 al detectar el Dominio, que es uno de los parametros que capto globalmente y que el router no tiene

Edited by JoAnCa, 28 February 2017 - 10:13 AM.

[Electroadicto]

Aquí en la habana hicimos un sito con una base de datos y tenemos registrado todos los equipos tanto nanos routers todo y si se hace un net scan y se encuentra una dirección y no aparece registrado aguántate que si no lo justificas se le aplica medida, Y además queda registrada. Eso que tú quieres es para una red en la que tú no tienes control????

 

Saludos

[escafandra]

Esta función de devuelve la IP de tu GateWay:

delphi

type
 
PIP_ADDR_STRING = ^IP_ADDR_STRING;
IP_ADDR_STRING = record
  Next: PIP_ADDR_STRING;
  IpAddress: array [0..15] of AnsiCHAR;
  IpMask: array [0..15] of AnsiCHAR;
  Context: DWORD;
end;
 
PIP_ADAPTER_INFO = ^IP_ADAPTER_INFO;
IP_ADAPTER_INFO = record
  Next: PIP_ADAPTER_INFO;
  ComboIndex: DWORD;
  AdapterName: array [0..259] of AnsiCHAR;
  Description: array [0..131] of AnsiCHAR;
  AddressLength: UINT;
  Address: array [0..7] of BYTE;
  Index: DWORD;
  Type_: UINT;
  DhcpEnabled: UINT;
  CurrentIpAddress: PIP_ADDR_STRING;
  IpAddressList: IP_ADDR_STRING;
  GatewayList: IP_ADDR_STRING;
  DhcpServer: IP_ADDR_STRING;
  HaveWins: BOOL;
  PrimaryWinsServer: IP_ADDR_STRING;
  SecondaryWinsServer: IP_ADDR_STRING;
  LeaseObtained: Longint;
  LeaseExpires: Longint;
end;
 
function GetAdaptersInfo(pAdapterInfo: PIP_ADAPTER_INFO; var pOutBufLen: ULONG): DWORD; stdcall; external 'iphlpapi.dll';
 
//.....................................
 
 
 
function GetGateWay: String;
var
  pAI: PIP_ADAPTER_INFO;
  AILen: DWORD;
begin
  Result:= '';
  GetAdaptersInfo(nil, AILen);
  GetMem(pAI, AILen);
  if GetAdaptersInfo(pAI, AILen) = 0 then
    Result:= pAI.GatewayList.IpAddress;
  FreeMem(pAI);
end;

Saludos.