[AC-2007] VBA - lire un active directory

[Mammy Potter]

Bonjour à tous,

Je voudrais me lancer dans un petit projet mais j'ai des lacunes sur la lecture de l'active directory via accès.

J'ai beau regardé sur le forum ou sur le net, j'ai du mal à distinguer la méthode, j'ai regardé aussi l'aide dans Access directement mais pareil, impossible de comprendre le fonctionnement.

Si une âme charitable voudrait bien prendre la peine quelques minutes pour m'expliquer je lui en serais reconnaissant.

Cordialement

[Dolphy35]

Salut,

Ce n'est pas si simple, il faut connaître l'architecture complète et avoir tous les droits.

Voici un lien avec quelques codes ( à adapter) http://gallery.technet.microsoft.com...ve%20Directory

Dolphy

[Mammy Potter]

En ce qui concerne l'architecture et les droits aucun problème.

Là ou réside la complexité c'est de se connecter à l'AD justement pour le lire

Par contre le lien que tu m'as donné correspond à des scripts VB et non VBA. Quand tu parles d'adapter c'est VB en VBA ou l'adapter à mon environnement?

Edit :

Bon après recherche, j'ai réussit à trouver quelque chose qui serait déjà un bon début. J'ai juste une demande d'autorisation refusée. Je ne dois pas accéder au bon endroit dans l'AD.

[Dolphy35]

Salut,

Je ne suis pas dans un environnement AD, je ne peux pas t'aider. Pour le lien oui c'est du VB mais c'est, dans le plus clair du temps, adaptable au VBA.

Post ton début de code

Dolphy

[Mammy Potter]

Voici le début de mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
strDomainDN = "dc=domain,dc=extention_domaine"
strBase = "<LDAP://" & strDomainDN & ">;" 'Définition de l'objet
strFilter = "(&(objectclass=user)(objectcategory=person));" 'Filtre le jeu d'enregistrement afin de garder que les utilisateurs dans l'objet AD
strAttrs = "distinguishedname;" 'Correspond à l'attribut de l'objet que l'on va regarder
strScope = "subtree" 'On pourra rechercher les utilisateurs dans l'arborescence
 
'Connection à la base
Set objconn = CreateObject("ADODB.Connection") 'Création d'un objet pour la connexion
objconn.Provider = "ADsDSOObject;User ID=login;Password=Password" 'Définition du pilote de connexion
objconn.Open "Active Directory Provider" 'Ouverture de la base
 
'Validation de la connexion
Set objRS = objconn.Execute(strBase & strFilter & strAttrs & strScope)

Et arrivé à cette ligne :

Code :

Set objRS = objconn.Execute(strBase & strFilter & strAttrs & strScope)

Que j'ai demande d'authentification refusée. Le compte déclaré dans objconn.provider est bon.