Moin zusammen,
mit folgenden Code lesen eine OU aus.
Delphi-Quellcode:
conn := CreateOleObject('
ADODB.Connection');
com := CreateOleObject('
ADODB.Command');
try
conn.Provider := '
ADsDSOObject';
conn.open;
com.ActiveConnection := conn;
strBase := '
<LDAP://N0cosa.emac.cat.com/OU=KielEngineCenter,DC=N0cosa,DC=emac,DC=cat,DC=com>';
strFilter := '
(&(objectCategory=person)(objectClass=user))';
strAttributes := '
sAMAccountName,givenname,sn,displayname';
strADS := strBase + '
;' + strFilter + '
;' + strAttributes + '
;subtree';
Com.CommandText := strADS;
Com.Properties['
Page Size'] := 100000;
Com.Properties['
Searchscope'] := 2;
Com.Properties['
Cache Results'] := False;
rs :=
Com.Execute;
while Not rs.EOF
do
begin
memo_list.Lines.Add(UpperCase(rs.Fields['
sAMAccountName'].Value));
// Holt den nächsten Benutzer
rs.MoveNext;
end;
Rs := NULL;
ShowMessage('
Finished successfully');
finally
com := NULL;
conn.Close;
conn := NULL;
end;
Jetzt würde ich gerne den DisplayNamen ändern (Quelle soll sn und givenname sein.
Nur wie? Mir fehlt der Befehl.
Danke im Voraus.
Sven