delphi - paginas - modificar archivo host windows 10

¿Cómo puedo identificar los hosts de Windows en una subred con Delphi?

Question

Tengo una aplicación administrativa que me gustaría ser capaz de "descubrir" hosts de Windows en la misma subred especificada por el usuario o por el usuario. ¿Cuál cree que es la mejor manera de descubrir rápidamente si una variedad de hosts están en línea, usando Delphi?

Consideré hacer ping a los hosts (posiblemente usando WMI y Delphi ), pero creo que puede haber una manera más confiable. Me preocupa que los clientes puedan estar configurados para no responder a las solicitudes de ping. Usando nbtscan , puedo obtener rápidamente una lista de los hosts de Windows en mi subred:

nbtscan 192.168.1.0/24

Me gustaría poder replicar esta funcionalidad, pero no estoy seguro de dónde comenzar. Actualmente estoy usando el componente ICS creado por François Piette para Delphi 2010.

Doy la bienvenida a cualquier sugerencia.

Answer 1

¿Por qué no usa un escáner como nmap para esto?

Y si no puede por alguna razón, puede leer sobre cómo lo hacen.

Compruebe la detección remota del sistema operativo y los métodos de toma de huellas dactilares TCP / IP admitidos por Nmap. Espero que esto ayude.

Answer 2

Después de algunas excavaciones, encontré este proyecto en Sourceforge que demuestra cómo realizar una búsqueda de NetBios en un solo host utilizando los componentes de Indy. Probé y este proyecto funciona bien con Delphi 2010. Esto podría, por supuesto, modificarse para realizar consultas de NetBios en un rango de direcciones.

NBLookup

unit uNbLookup;

interface

(************************************************************

  06-02-2007 - Petricca Antonio ([email protected])

  Free for any purpose...

  Thanks to:

    Jim Halfpenny
    http://directory.fsf.org/security/misc/nbtstat.pl.html

************************************************************)

uses

  IdGlobal,
  IdUDPClient,
  SysUtils,
  Windows;

function NetBiosLookup(AAddress: PChar; AHostName: PChar; ATimeOut: Integer): BOOL; stdcall;

implementation

const
  NB_REQUEST = #$A2#$48#$00#$00#$00#$01#$00#$00 +
               #$00#$00#$00#$00#$20#$43#$4b#$41 +
               #$41#$41#$41#$41#$41#$41#$41#$41 +
               #$41#$41#$41#$41#$41#$41#$41#$41 +
               #$41#$41#$41#$41#$41#$41#$41#$41 +
               #$41#$41#$41#$41#$41#$00#$00#$21 +
               #$00#$01;

  NB_PORT    = 137;
  NB_BUFSIZE = 8192;

function NetBiosLookup(AAddress: PChar; AHostName: PChar; ATimeOut: Integer): BOOL; stdcall;
var
  Buffer    : TIdBytes;
  I         : Integer;
  RepName   : String;
  UDPClient : TIdUDPClient;
begin
  RepName   := '''';
  Result    := False;
  UDPClient := nil;

  if not Assigned(AHostName) then
    Exit;

  try
    UDPClient := TIdUDPClient.Create(nil);
    with UDPClient do begin
      Host := Trim(AAddress);
      Port := NB_PORT;

      Send(NB_REQUEST);
    end;

    SetLength(Buffer, NB_BUFSIZE);
    if (0 < UDPClient.ReceiveBuffer(Buffer, ATimeOut)) then begin

      for I := 1 to 15 do
        RepName := RepName + Chr(Buffer[56 + I]);

      RepName := Trim(RepName);
      StrPCopy(AHostName, RepName);

      Result := True;
    end;

  except
    Result := False;
  end;

  if Assigned(UDPClient) then
    FreeAndNil(UDPClient);
end;

end.