////////////////////////////////////////////////////////////////////////////////

//

//  ****************************************************************************

//  * Unit Name : Unit1

//  * Purpose   : Демо получение информации NETBIOS именах компьютера

//                (аналог nbtstat -a)

//  * Author    : Александр (Rouse_) Багель

//  * Version   : 1.00

//  ****************************************************************************

//

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

  Dialogs, Nb30, StdCtrls;

 

type

  TNetbiosInfo = record

    AdapterStatus: TAdapterStatus;

    NameBuffer: Array [0..30] of TNameBuffer;

  end;

 

  TForm1 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

  private

    procedure GetNetBiosNames(const Addr: String);

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.GetNetBiosNames(const Addr: String);

var

  NCB: TNCB;

  Enum: TLanaEnum;

  NetbiosInfo: TNetbiosInfo;

  I, A: Integer;

  Ends: Byte;

begin

  FillChar(NCB, SizeOf(TNCB), #0);

  NCB.ncb_command := Char(NCBENUM);

  NCB.ncb_buffer := @Enum;

  NCB.ncb_length := SizeOf(TLanaEnum);

  if Netbios(@NCB) = Char(NRC_GOODRET) then

    for I := 0 to Integer(Enum.length) - 1 do

    begin

      FillChar(NCB, SizeOf(TNCB), #0);

      NCB.ncb_lana_num := Enum.lana[I];

      NCB.ncb_command := Char(NCBRESET);

      if Netbios(@NCB) = Char(NRC_GOODRET) then

      begin

        FillChar(NetbiosInfo, SizeOf(TNetbiosInfo), #0);

        NCB.ncb_command := Char(NCBASTAT);

        Move(Addr[1], NCB.ncb_callname[0], Length(Addr));

        NCB.ncb_buffer := @NetbiosInfo;

        NCB.ncb_length := SizeOf(TNetbiosInfo);

        if Netbios(@NCB) = Char(NRC_GOODRET) then

          for A := 0 to NetbiosInfo.AdapterStatus.name_count - 1 do

          begin

            Ends := Byte(NetbiosInfo.NameBuffer[A].name[NCBNAMSZ - 1]);

            NetbiosInfo.NameBuffer[A].name[NCBNAMSZ - 1] := #32;

            Memo1.Lines.Add(Format('%s <%s>',

              [String(NetbiosInfo.NameBuffer[A].name),

                IntToHex(Ends, 2)]));

          end;

      end;

    end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  GetNetBiosNames(Edit1.Text);

end;

 

end.