Récupérer le nom ActiveDirectory à partir d'un user

peshko60

XLDnaute Nouveau
Bonjour,

J'ai un USF qui permet à un utilisateur de s'identifier (AD) - il saisit son user et mot de passe Windows. La fonction suivante permet de vérifier si l'identification est correcte :

'Pour contrôler l'identification (domaine + utilisateur + mot de pase) saisie dans un userform.
'nécessite la référence Active DS type Library - dans excel2010
Public Function LDAPIdentif(strDC, strDomain, strLogin, strPassword)
On Error Resume Next
Dim DSODomaine
Dim DSOContainer
Set DSODomaine = GetObject("LDAP:")
Set DSOContainer = DSODomaine.OpenDSObject("LDAP://" & strDC, strDomain & "\" & strLogin, strPassword, ADS_SECURE_AUTHENTICATION)
If Err.Number <> 0 Then
LDAPIdentif = False
Else
LDAPIdentif = True
End If
Set DSOContainer = Nothing
Set DSODomaine = Nothing
End Function

Cette fonction est ensuite rappelée dans le code de l'USF

Ce que je souhaite c'est (si l'identification est correcte bien-sûr) récupérer le nom et le prénom de l'utilisateur (je crois qu'il s'agit des attributs sn et givenName) afin de les coller dans deux cellules d'une feuille.
Vu que je ne suis pas très fort en VBA je ne sais pas si je peux utiilser cette fonction en la complétant ou bien il faut faire une autre.

Merci d'avance
 
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 816
Messages
2 092 361
Membres
105 378
dernier inscrit
y07