VPF::Список пользователей домена Windows

Proximo_RZN

Дата 1.8.2005, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 16.3.2004
Где: Рязань

Репутация: нет
Всего: нет

Здравствуйте. Перерыл весь DRKB, но так и не нашел как получить список ВСЕХ пользователей домена (т.е. уташить их из Active Directory). Желательно универсальное решение для 2000/2003.
Спасибо.

Girder

Дата 11.8.2005, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 4
Всего: 155

Код

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure GetEnumRes(Root:PNetResource; LevelMax:integer; dwType:DWord; TreeV:TTreeView; Tree:TTreeNode);
var hEnum:DWord;
    C,S,i:DWord;
    Buf,t:PNetResource;
begin
 if LevelMax<0 then exit;
 if WNetOpenEnum(RESOURCE_GLOBALNET,dwType,0,Root,hEnum)<>NO_ERROR then exit;
 C:=$FFFFFFFF;
 S:=32768;
 Buf:=nil;
 try
  GetMem(Buf,S);
  if WNetEnumResource(hEnum,C,Buf,S)<>NO_ERROR then exit;
  t:=Buf;
  for i:=1 to C do
   begin
    GetEnumRes(t,LevelMax-1,dwType,TreeV,TreeV.Items.AddChild(Tree,t^.lpRemoteName));
    Application.ProcessMessages;
    inc(t);
   end;
 finally
  if Buf<>nil then FreeMem(Buf,S);
  WNetCloseEnum(hEnum);;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 GetEnumRes(nil,2,RESOURCETYPE_DISK,TreeView1,nil);
end;

end.

--------------------

Как слышим, так и пишим.
Истина где-то там...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »