如何获取活动目录的所有用户及相关描述 (100分)

windows 2000 server 域 Active Directory
如何获取用户列表，及这个用户的详细信息(全名，描述，在Active Directory的位置)

关注！

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; {找到所有的计算机}




var
WorkgroupCount : Integer;
Workgroup: Array[1..500] of String[25];

Procedure FindAllWorkgroups;
Var
EnumHandle: THandle;
EntireNetwork: TNetResource;
Buf: Array[1..500] of TNetResource;
BufSize: Integer; // 或DWORD;
Entries: Integer; // 或DWORD;

begin
FillChar(EntireNetwork, SizeOf(EntireNetwork) , 0);
With EntireNetwork do begin
dwScope := 2;
dwDisplayType := 6;
dwUsage := 2;
end;
WNetOpenEnum( RESOURCE_GLOBALNET,
RESOURCETYPE_ANY,
0,
@EntireNetwork,
EnumHandle );
WorkgroupCount := 0;
Repeat
Entries := 1;
BufSize := SizeOf(Buf);
WNetEnumResource( EnumHandle,
Entries,
@Buf,
BufSize );
If Entries = 1 then begin
Inc( WorkgroupCount );
Workgroup[ WorkgroupCount ] := StrPas(Buf[1].lpRemoteName);
end;
Until (Entries <> 1);
WNetCloseEnum( EnumHandle );
end;

ugvanxk:
好像和我的问题没有关系吧

关注