Поиск рабочих групп и компьютеров в них

[GAGARIN-NEW]

Добрый день !

Дайте пожалуйста процедуру каторая бы показывала рабочие групы и компьютеры в них ... и выводила бы всю эту прелесть в TreeView

или хотябы функцию каторая находила список всех активных групп в локалке ...

 function GetIPFromHost(const HostName: string): string;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  i: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result := '';
  phe := GetHostByName(PChar(HostName));
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  i := 0;
  while pPtr^[i] <> nil do
  begin
    Result := inet_ntoa(pptr^[i]^);
    Inc(i);
  end;
  WSACleanup;
end;

procedure FindAllComputers(Workgroup: String);
var
  Computer: array[1..500] of string[25];
  ComputerCount: integer;
  EnumHandle: THandle;
  WorkgroupRS: TNetResource;
  Buf: array[1..500] of TNetResource;
  BufSize: cardinal;
  Entries: cardinal;
  Result: integer;
  i: integer;
begin
   ComputerCount := 0;
   Workgroup := Workgroup + #0;
   FillChar( WorkgroupRS, SizeOf( WorkgroupRS ) , 0 );
   With WorkgroupRS do
   begin
      dwScope := 2;
      dwType := 3;
      dwDisplayType := 1;
      dwUsage := 2;
      lpRemoteName := @Workgroup[1];
   end;
   WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @WorkgroupRS, EnumHandle );
   Repeat
      Entries := 1;
      BufSize := SizeOf( Buf );
      Result := WNetEnumResource( EnumHandle, Entries, @Buf, BufSize );
      If ( Result = NO_ERROR ) and ( Entries = 1 ) then
      begin
         Inc( ComputerCount );
         Computer[ComputerCount] := StrPas( Buf[1].lpRemoteName );
      end;
   Until ( Entries <> 1 ) or ( Result <> NO_ERROR );
   WNetCloseEnum( EnumHandle );
   for i := 1 to ComputerCount do
      fm1.TreeView2.Items.AddFirst(fm1.TreeView2.TopItem ,Computer[i]);
end;

Из Данных функций немного похимичил и вот что вышло


А вот как найти все рабочие группы я так и неузнвл ...

[Stilet]

Отвечает Delphi World: Как правило это можно сделать так

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Res: TNetResource;
  s: TStrings;
implementation

{$R *.dfm}

// Ïåðåìåííàÿ List çàïîëíÿåòñÿ ñïèñêîì äîìåíîâ.
// Ôóíêöèÿ âîçâðàùàåò êîä îøèáêè îáðàùåíèÿ ê ñåòè.

function FillNetLevel(xxx: PNetResource; list: TStrings): Word;
type
  PNRArr = ^TNRArr;
  TNRArr = array[0..59] of TNetResource;
var
  x: PNRArr;
  tnr: TNetResource;
  I: integer;
  EntrReq,
    SizeReq,
    twx: THandle;
  WSName: string;
begin
  Result := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY,
    RESOURCEUSAGE_CONTAINER, xxx, twx);
  if Result = ERROR_NO_NETWORK then
    Exit;
  if Result = NO_ERROR then
  begin
    New(x);
    EntrReq := 1;
    SizeReq := SizeOf(TNetResource) * 59;
    while (twx <> 0) and
      (WNetEnumResource(twx, EntrReq, x, SizeReq) <>
      ERROR_NO_MORE_ITEMS) do
    begin
      for i := 0 to EntrReq - 1 do
      begin
        Move(x^[i], tnr, SizeOf(tnr));
        case tnr.dwDisplayType of
          RESOURCEDISPLAYTYPE_DOMAIN:
            begin
              if tnr.lpRemoteName <> '' then
                WSName := tnr.lpRemoteName
              else
                WSName := tnr.lpComment;
              list.Add(WSName);
            end;
        else
          FillNetLevel(@tnr, list);
        end;
      end;
    end;
    Dispose(x);
    WNetCloseEnum(twx);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    s := TStringList.Create;
    FillNetLevel(@Res, S);
    RichEdit1.Lines.Assign(s);
    S.Free
  except
    S.Free;
    ShowMessage('Íå óäàëîñü ïîëó÷èòü ñïèñîê äîìåíîâ')
  end
end;

end.

[GAGARIN-NEW]

Не могли бы Вы подправить комментарии ??? Чтоб хоть немного было понятно что где делается ...

И ещё ... Можно ли отследить добавление каждого стринга в

s := TStringList.Create;   
    FillNetLevel(@Res, S);   
    RichEdit1.Lines.Assign(s);   
    S.Free

и выполнять мои действия в цикле ... тоесть

Найдена 1 раб группа
//Мои действия
Найдена 2 раб группа
//мои действия
... итд ...
Это мне нужно для того чтобы добавлять не целый набор рабочих групп как TStringList а добавлять по одной в TreeView и добавлять дочерни узлы к этой раб группе - тобиш компьютеры каторые в ней находятся ...

Надеюсь ясно выразился
ЗЫ Если я н ошибаюсь то что мне нужно находится в 69 строчке?

[0zzi_comp]

ОГРОМНОЕ спасибо. Очень помогло. Так держать.