Discussion :

[darkian]

Bonjour,

J'arrive, en ASP, à récupérer les informations d'un login d'un annuaire LDAP. Par contre, ce qu'il faudrait que j'arrive à faire, c'est à vérifier que le couple login/password est ok (authentification pour un intranet).

Et là, rien à faire, malgré plusieurs méthode essayer, rien ne fonctionne.

Merci d'avance à ceux qui auraient une idée.

[darkian]

J'ai un peu avancé sur le sujet mais je bute sur une erreur -2147016665

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
On Error Resume Next
 
Dim DSODomaine
Dim DSOContainer
 
strLogin = "cn=login"
strPassword = "password"
 
Set DSODomaine = GetObject("LDAP:")
wscript.echo "Erreur : " & err.number & " " & err.description
Set DSOContainer = DSODomaine.OpenDSObject("LDAP://monserver/ou=service,o=xxx", strLogin, strPassword, 1)'ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND)
 
If Err.Number <> 0 Then
	LDAPIdentif = False
Else
	LDAPIdentif = True
End If
 
wscript.echo "Résultat : " & LDAPIdentif
wscript.echo "Erreur : " & err.number & " " & err.description
 
Set DSOContainer = Nothing
Set DSODomaine = Nothing

Toutes mes recherches me renvoient ce genre de code mais impossible à faire fonctionner. Aussi bien dans une page ASP que dans un fichier VBS (cas ci-dessus).

[darkian]

Pour ceux que cela intéresse, j'ai réglé mon problème en utilisant ADS_USE_SSL dans l'ouverture de l'objet

[roro06]

Pour ceux que cela intéresse,

peut-être peux-tu mettre un bout de code, pour ta solution ?

[kaiser59]

peut-être peux-tu mettre un bout de code, pour ta solution ?

Se serait bien, parce que ça m'intéresse beaucoup

[darkian]

LE bout de code ne change pas, c'est juste le paramètre à indiquer à la fin comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set DSOContainer = DSODomaine.OpenDSObject("LDAP://monserver/ou=service,o=xxx", strLogin, strPassword, ADS_USE_SSL)