AUTENTIFICATION (LOGIN + PASSWD) SUR UN DOMAINE WINDOWS NT
cs_hacko
Messages postés16Date d'inscriptionsamedi 28 décembre 2002StatutMembreDernière intervention 8 mai 2007
-
8 avril 2005 à 11:39
lieutnant
Messages postés1Date d'inscriptionlundi 18 février 2008StatutMembreDernière intervention25 février 2008
-
25 févr. 2008 à 10:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
lieutnant
Messages postés1Date d'inscriptionlundi 18 février 2008StatutMembreDernière intervention25 février 2008 25 févr. 2008 à 10:45
g pas bien compris la fonction
Drouzig
Messages postés3Date d'inscriptionvendredi 17 décembre 2004StatutMembreDernière intervention 5 décembre 2005 5 déc. 2005 à 10:48
Le titre n'était pas bon, c'est vrai. Je vais donc prendre la peine de poster ma MàJ pour corriger mon premier brouillon. On parle donc bien de LDAP.
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"...
Neo.balastik
Messages postés796Date d'inscriptionjeudi 17 mai 2001StatutMembreDernière intervention 5 mai 20097 5 déc. 2005 à 10:14
1 : mauvais titre : ton code n'utilise pas le provider LDAP mais WINNT
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
cs_hacko
Messages postés16Date d'inscriptionsamedi 28 décembre 2002StatutMembreDernière intervention 8 mai 2007 8 avril 2005 à 11:39
Sorry, mais je vois pas de ldap là dedans, tu utilise uniquement le protocole WINNT !!
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 !!