Discussion :

[Bz]

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 :

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
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

[neguib]

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

Code :

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

1
2
3
 
Option Explicit On
Option Strict On

Afin de prendre de bonnes habitudes et de commencer à coder VB.Net (et pas VB6 )

Essayes

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
 
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

[BiM]

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

[Bz]

ca y est ca marche

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
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