[VB.Net][2.0] Connexion à LDAP

Version imprimable

plop,

je cherche desespérement un bout de code permettant de tester d'authentifier un user en asp.net via openldap.

J'ai trouvé un bout de code qui maleureusement ne marche pas :/

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 Dim dso
        Dim obj
 
        Dim adUsername As String
        Dim adPassword As String
        Dim adChemin As String
 
        Response.Write("debut")
 
        adUsername = "cn=Manager" '& ",dc=my-domain,dc=com"
        adPassword = "secret"
        adChemin = "ldap://localhost/cn=Manager,dc=my-domain,dc=com"
 
 
        On Error Resume Next
        dso = GetObject("LDAP:")
        If (Err.Number <> 0) Then
            Response.Write("GetObject " & Err.Description)
            Exit Sub
        End If
 
 
 
        On Error Resume Next
        obj = dso.OpenDSObject(adChemin, adUsername, adPassword, 0)
        If (Err.Number <> 0) Then
            Response.Write("OpenObject " & Err.Description)
            Exit Sub
        End If
 
        obj = Nothing
        dso = Nothing
        Response.Write("fin")

j'ai trituré ce code dans tous les sens et impossible de le faire marcher.
Quelqu'un aurait il une idée?

PS : pas bien compris dans les rules le tag a utiliser pour l'asp.net

Cher ami vbciste tu aurais grand intérêt à mettre
Code:

1 2 3 Option Explicit On Option Strict On
:wink:
Afin de prendre de bonnes habitudes et de commencer à coder VB.Net (et pas VB6 :wink: )

Essayes
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim dso As Object Dim obj As Object Dim adUsername As String Dim adPassword As String Dim adChemin As String Try Response.Write("debut") adUsername = "cn=Manager" '& ",dc=my-domain,dc=com" adPassword = "secret" adChemin = "ldap://localhost/cn=Manager,dc=my-domain,dc=com" dso = GetObject("LDAP:") obj = dso.OpenDSObject(adChemin, adUsername, adPassword, 0) //traitement supplementaire Response.Write("fin") Catch ex As Exception Response.Write(ex.Message) Finally If Not(obj Is Nothing) Then obj = Nothing If Not(dso Is Nothing) Then dso = Nothing End Try
Bon je n'ai pas cherché plus loin mais au moins tu sauras de façon explicite quelle est l'exception levée
N'oublie pas de nous le communiquer de façon complète

13/12/2005, 10h02
BiM

Il y a un plein de sujets à ce propos : Recherche avancée, Webforms..., LDAP ou Active Directory

ca y est ca marche :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Imports System.DirectoryServices
Public Class WebForm1
    Inherits System.Web.UI.Page
 
    Public cheminLDAP As String = "LDAP://localhost:389/cn=Personne1,cn=Manager,dc=my-domain,dc=com"
    Public nomLDAP As String = "Personne1"
    Public passLDAP As String = "pass1"
 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If userExist() = True Then
            Response.Write("L'utilisateur existe")
        Else
            Response.Write("L'utilisateur n'existe pas")
        End If
    End Sub
    Public Function userExist() As Boolean
        Try
            ' Connexion à l'annuaire
            Dim monEntry As New DirectoryEntry(cheminLDAP, _
                                                nomLDAP, _
                                                passLDAP, _
                                                AuthenticationTypes.Anonymous)
            Dim maRecherche As DirectorySearcher = New DirectorySearcher
            maRecherche.SearchRoot = monEntry
            maRecherche.Filter = "(&(objectClass=person) (cn=" + nomLDAP + ") (userPAssword=" + passLDAP + "))"
            ' Récupération du résultat de la requête
            Dim results As SearchResultCollection = maRecherche.FindAll()
            monEntry.Close()
            ' Analyse du résultat
            If results.Count = 0 Then Return False Else Return True
 
        Catch ex As Exception
            Response.Write(ex.Message & " " & ex.Source)
        End Try
    End Function
End Class