VBA - lire un active directory

Version imprimable

10/08/2011, 12h10
Mammy Potter

VBA - lire un active directory

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
10/08/2011, 12h46
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) :fleche: http://gallery.technet.microsoft.com...ve%20Directory

Dolphy ;)
10/08/2011, 13h08
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 :D

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.
10/08/2011, 22h57
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

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.