Récuperer Adresse Mail Compte utilisateur AD

Bonjour à tous,

J'aurai voulu savoir si il est possible avec un VBA Outlook de se connecte à L' AD pour récupérer les adresse d'un groupe utilisateur. (pas de distribution)


Merci d' avance pour votre aide

guigui69

Bonjour,
Oui mais ce n''est pas propre à Outlook il y a plusieurs méthodes
Soit des requetes "LDAP" : Set objUser = GetObject("LDAP://" & strUserDN)...
Soit des requetes ADODB avec le provider "ADSDSOObject"
Soit des requetes winnt : GetObject("WinNT://...

exemple ici ou sur :google:

Bonjour je reviens sur mon sujet.

(je n'ai eu le temps de me remettre sur le sujet)

J'arrive à récuperer dans AD les utilisateurs avec uniquement un Email par contre je n'arrive pas à filter en demandant que les compte actif.


le filtrer:

Code:

---

1 2 3 4

strFilter = "(&(|(objectclass=user)(objectcategory=person)) (mail=*) (AccountDisabled= False));" strAttrs = "distinguishedname;" strScope = "subtree"

---

J'ai une erreur: BOF ou EOF est egal Tru ou l'enregistrement actuel a été supprimé.......

Si j'enleve (AccountDisabled= False) le script fonctionne cela me liste bien tout mes utilisateurs avec une adresse mail.

Lorsque j’extraie les donnée dans un excel pour (AccountDisabled il me sort soit VRAI ou FAUX


Quelle erreur est-je commis dans mon script ?

merci d'avance pour votre aide

guigui69

Bonsoir,

je pense avoir trouvé mon erreur, j'ai rajouté ceci : (!userAccountControl:1.2.840.113556.1.4.803:=2) et cela semble est ok.

Par contre maintenant je cherche a lister tout les utilisateur sauf ceux present dans l'OU "Agent" et je n'arrive pas a filtrer cela


guigui69