Discussion :

[czezko]

je vois dans tous les tutoriels concernant active directory qu'il faut utiliser la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ADsGetObject('LDAP://CN=....,OU=....DC=...,DC=...') as IADsContainer;

ou sous une autre forme, mais cette méthode n'est pas définie lorsque j'importe la librairie ActiveDs_TLB

Quelqu'un aurait-il une idée ? ( c'est un controleur de domaine windows 2003 )

[Pascal Jankowski]

En fait la fonction ADsGetObject te renvoi une instance d'objet COM (HResult). l'opération as IADsContainer permet de savoir si l'instance implémente l'interface IADsContainer. (voir également la fonction supports)

Si c'est le cas, alors l'instance d'objet répond au contrat passé avec l'interface et ainsi tu sais que ton instance est capable de réaliser "certaines actions". Tu n'as pas besoin de savoir comment elles le font mais tu sais qu'elles le font.

Par ailleurs IADsContainer dispose de trois propriétés:
- Count : Retourne le nombre d'éléments dans un récipient (objet parent).
- Filter : Retourne ou définit le filtre sur les classes de schéma à utiliser pour une énumération.
- Hints : Retourne ou définit les propriétés à charger.

Cordialement

[czezko]

oui mais à la compilation, j'ai une erreur comme quoi AdsGetObject n'est pas déclaré

[Pascal Jankowski]

Il faut ajouter l'unité ActiveDS_TLB à ton projet. Tu peux directement la créer en recensant un nouvel active x dans Delphi (composant/importer un composant) ou tout simplement la rechercher sur le net à partir de google.
Il faut choisir pour cela la dll activeds.dll que tu trouve dans le répertoire windows\system32

[czezko]

j'ai déjà importer la librairie, mais rien a faire, d'ailleurs en éditant le fichier, on ne retrouve pas la méthode, il y a juste GetObject, mais bon c'est pas grave,je vais essayer avec system.directoryservices mais il faut que j'installe le .net

[Pascal Jankowski]

Autant pour moi cette fonction appartient à l'unité ADHelper.pas
(ça sent la fin de semaine...)

Tu trouveras toutes les unités à cet endroit

Cordialement

[czezko]

voilà, j'arrive a récupérer le nom de domaine, j'ai ajouté le composant ADsADSystemInfo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Domain.Text:= '@' + ADsADSystemInfo1.DomainDNSName;

maintenant,j'aimerai pouvoir lister les OU, qui je suppose sont des container et aussi lister les groupes qui existent dans ces OU....

Je début en delphi,comment rempli t on une TComboBox ?