Hi,
Meisnt du diese?
Delphi-Quellcode:
function TForm2.ListUsers(Domain:
String): TStringList;
var dom : IADsContainer;
begin
List.Clear;
if dom <>
nil then dom._Release;
ADsGetObject('
WinNT://' + Domain, IADsContainer,
dom);
dom.Filter := VarArrayOf(['
user']);
ADsEnumerateObjects(
dom, AddToList);
Result:=TStringList.Create;
Result.Assign(List);
end;
Ich blick da net ganz durch.
Du setzt den Filter auf User,und machst füllste die lsite mit ADsEnumerateObjects.
danke