Dim objCon, strQuery, strADSPath Dim objUser 'création de l'objet de connexion ADO : Set objCon = CreateObject("ADODB.Connection") 'déclaration du fournisseur de connexion : objCon.Provider = "ADSDSOOBJECT" 'ouverture de la connexion et création de la requête : objCon.Open strQuery = "SELECT mail FROM 'LDAP://ou=xxx,ou=yyy,ou=zzz,dc=aa,dc=bbbb,dc=com' WHERE objectclass='User' AND objectcategory='Person'" And samaccountname='" + Nom_SAM + "'" 'exécution de la requête : Set objrecset = objCon.Execute(strQuery) 'boucle dans le recordset jusqu'à la fin du tableau : Do While Not objrecset.EOF 'affiche l'adresse mail texte1.text = objrecset.fields("mail").Value) 'passe à l'enregistrement suivant (théoriquement y'en a pas ! tu ne devrais avoir qu'un seul gugusse avec le même compte sam) objrecset.MoveNext Loop
'ouverture de la connexion et création de la requête : objCon.Open
strQuery = "SELECT mail FROM 'LDAP://ou=xxx,ou=yyy,ou=zzz,dc=aa,dc=bbbb,dc=com' WHERE objectclass='User' AND objectcategory='Person'" And samaccountname='" + Nom_SAM + "'"