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
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:
