5/5 (4 avis)
Snippet vu 17 068 fois - Téléchargée 32 fois
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
25 févr. 2008 à 10:45
5 déc. 2005 à 10:48
NeoBalastik, pour ton erreur -2147463168, travailles-tu sur différents domaines ou forêts? J'ai eu des soucis avec le protocole WinNT, la structure du LDAP et les "trusted domains"...
5 déc. 2005 à 10:14
2 : mauvais code : il ne fonctionne pas. L'erreur -2147463168 remonte tout le temps.
-> tu utilises mal ADSI
3 : le paramètre strDomaine de ta fonction ne sert strictement à rien
Voici une fonction qui fonctionne :
Public Function AuthenticateUser(ByVal strDomaine As String, ByVal strUserID As String, ByVal strPassword As String) As Boolean
On Error Resume Next
Dim oDSO As IADsOpenDSObject
Dim oDomaine As IADsDomain
Set oDSO = GetObject("WinNT:")
Set oDomaine = oDSO.OpenDSObject("WinNT://" & strDomaine, strUserID, strPassword, ADS_SECURE_AUTHENTICATION)
AuthenticateUser (Err.Number 0)
' Libération des objets
Set oDSO = Nothing
Set oDomaine = Nothing
End Function
8 avril 2005 à 11:39
Mais sinon, c'est quand même intéressant !!
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.