Как найти все компьютеры в рабочей группе

Я пришел к тебе с дискетой - рассказать, что сеть упала.

var
  Computer: array [1..500] of string[25];
  ComputerCount: Integer;

procedure FindAllComputers(Workgroup: string);
var
  EnumHandle: THandle;
  WorkgroupRS: TNetResource;
  Buf: array [1..500] of TNetResource;
  BufSize: Integer;
  Entries: Integer;
  Result: 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 );
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 712 • TDictionary Custom Sort 6 710 • Fast Watermark Sources 6 490 • 3D Designer 9 427 • Sik Screen Capture 6 824 • Patch Maker 7 266 • Айболит (remote control) 7 221 • ListBox Drag & Drop 6 072 • Доска для игры Реверси 97 764 • Графические эффекты 7 396 • Рисование по маске 6 693 • Перетаскивание изображений 5 547 • Canvas Drawing 5 934 • Рисование Луны 5 702 • Поворот изображения 5 165 • Рисование стержней 3 768 • Paint on Shape 2 954 • Генератор кроссвордов 3 883 • Головоломка Paletto 3 095 • Теорема Монжа об окружностях 3 906 • Пазл Numbrix 2 569 • Заборы и коммивояжеры 3 353 • Игра HIP 2 302 • Игра Go (Го) 2 201 • Симулятор лифта 2 610 • Программа укладки плитки 2 200 • Генератор лабиринта 2 713 • Проверка числового ввода 2 355 • HEX View 2 692 • Физический маятник 2 364