Cette fonction permet d'authentifier un utilisateur sur un domaine Windows NT en utilisant les services LDAP.
Source / Exemple :
Function LDAPIdentif (strDC, strDomain, strLogin, strPassword)
' strDC est le domaine interrogé
' strDomain est le domaine d'appartenance de l'utilisateur
On Error Resume Next
Dim DSODomaine
Dim DSOContainer
'Utiliser les services d'annuaire LDAP
Set DSODomaine = GetObject("LDAP:")
Set DSOContainer = DSODomaine.OpenDSObject("LDAP://" & strDC, strDomain & "\" & strLogin, strPassword, ADS_SECURE_AUTHENTICATION)
If Err.Number <> 0 Then
' indebug ("Connection failed : LDAP://" & strDC & ", " & strDomain & "\\" & strLogin & ", ********")
LDAPIdentif = False
Else
LDAPIdentif = True
End If
Set DSOContainer = Nothing
Set DSODomaine = Nothing
End Function
Conclusion :
Ne pas oublier d'inclure dans le projet VB la librairie 'Active DS Type Library'.
Par ailleurs, tester l'exécution directement dans l'interface de dév ne fonctionne pas en cas d'échec en authentification (ActiveX...), il faut donc compiler le projet et exécuter.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.