DELPHI et ACTIVE DIRECTORY (ou LDAP)

Question

Bonjour,

Je souhaiterais developper avec delphi une petite appli qui permettrait de mettre a jour (ou creer) les champs nom, prenom, description et telephone.

Je ne trouve aucune doc ou exemple sur le net.

Quelqu'un a t'il des infos, des liens, ou mieux un exemple.

D'avance merci

oakenshi · Answer

Pardon pour mon français

Voir ici:
http://www.vkarlsen.no/lvk/current/
http://www.ararat.cz/synapse/

Bonne chance

Thorin Oakenshield

cs_Ivanov · Answer

Bonjour,

J'ai visit&#233; les liens mais comment fais-tu pour cr&#233;er ou supprimer un compte dans l'active directory (avec les UO),

Merci pour ta r&#233;ponse!

g2loq · Answer

Il n'y a pas beaucoups d'exemple sur internet, ca fait des mois que je cherche. :-)

J'ai pondu une petite fonction, hiers elle marchait chez moi, aujourd'hui non et je ne vois pas pourquoi. Mais cela va peut &#234;tre aid&#233; quelqu'un. :-)

interface


uses
  SysUtils,
  Variants,
  Dialogs,


  ComObj, ActiveX,


  ActiveDs_TLB;  //ADSI


 


 


//------------------------------------------------------------------------------
function ADsGetObject(lpszPathName: PWideChar; const riid: TGUID; out obj): HResult; stdcall; external 'activeds.dll';
function ADsOpenObject(lpszPathName: PWideChar; lpszUserName: PWideChar; lpszPassword: PWideChar; dwReserved: LongInt; const riid: TIID; out obj): HResult; stdcall; external 'activeds.dll';


...


 


implementation


 



//------------------------------------------------------------------------------
function Change_Description_PC_ADSI ( nom_ordi_a_modif,descript : string) : string;  // Modification de la description du PC ds Active Directory
const MAX_car = 255;
var
  UnknownObj: IUnknown;
  obj : IAds;


  myUser, myPassword, nom_pc : string;
  DestName : string;


  PWCmyUser, PWCmyPassword, PWCDestName : array [0..MAX_car] of WideChar;


begin


  nom_pc        := nom_ordi_a_modif;  //'l-atEcono1Essai';
  DestName      := 'LDAP://NomServeur/CN=' + nom_pc + ',OU=...,DC=...,DC=...,DC=...';
  myUser        := 'DOMAINE\LOGIN' ;
  myPassword    := 'PWD' ;


  //test si la chaine rentre dans le tableau declarer dans VAR
  if (length(DestName)

g2loq · Answer

N.B : il faut faire des recherche autour du mot clef ADSI pour plus d'info.

g2loq · Answer

la solution qui marche bien, a nouveau :-)

//------------------------------------------------------------------------------
function Change_Description_PC_ADSI ( nom_ordi_a_modif,descript : string) : string;  // Modification de la description du PC ds Active Directory
const MAX_car =  255;
var
  UnknownObj: IUnknown;
  obj : IAds;


  myUser, myPassword, nom_pc, DestName : string;



begin


  nom_pc        := nom_ordi_a_modif; 
  DestName      := 'LDAP://NomServeur/CN=' + nom_pc + ',OU=...,DC=...,DC=...,DC=...';


  myUser        := 'DOMAIN\LOGIN' ;
  myPassword    := 'PWD' ;


    try
     
      //ADsGetObject(StringToOleStr(DestName), IID_IADs, UnknownObj);                      //connextion sans authentifications
      OleCheck( AdsOpenObject(  StringToOleStr (DestName), 
    StringToOleStr(myUser), 
    StringToOleStr(myPassword), 0, IID_IADs, UnknownObj));   //connextion avec authentifications



      obj : = UnknownObj as IADs;


      obj.Put('description', descript);  //met dans un tampon
      obj.SetInfo;                       //valide la valeur du tampon ds AD. Si Get avant SetInfo Alors cela efface le Put


      result := obj.get('description');


    except      on E: EOleException do begin ShowMessage('Source ' + E.Source + ' Message ' + E.Message); end;
    end;



end;
//------------------------------------------------------------------------------

DELPHI et ACTIVE DIRECTORY (ou LDAP)

5 réponses

Votre réponse

Discussions similaires