Active Directory DisplayName ändern

[Piro]

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

[Piro]

Hat denn keiner von Euch ne Idee?

Danke im Voraus.
Sven