Discussion :

[raicolin]

Bonjour,

J’essaie d'établir une connexion entre mon application web et un annuaire Sésame avec le protocol LDAPS, j'utilise le code vb suivant :

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
Public Function Connect(ByVal ldapServerName As String, ByVal userName As String, ByVal password As String) As LdapConnection
        'to use LDAP calls, you must first connect to the directory.
        Try
            'creation d'une connection LDAP
            Trace.TraceInformation("\nConnect :\n\t: " & ldapServerName & " ; " & userName & " ; " & password)
            Trace.Flush()
            Dim id As New LdapDirectoryIdentifier(ldapServerName, False, False)
            Dim nc As New NetworkCredential(userName, password)
            connection = New LdapConnection(id)
            With connection
                .Credential = nc
                .AuthType = AuthType.Basic
                .Timeout = New TimeSpan(0, 5, 60)
                .SessionOptions.ProtocolVersion = 3
                .SessionOptions.SecureSocketLayer = True
            End With
            Return connection
        Catch ex As Exception
            Trace.TraceInformation("\r\nErreur Connect:\r\n\t" + ex.GetType().Name + ":" + ex.Message & " " & ex.StackTrace)
            Trace.Flush()
            Dim instance As LdapException = New LdapException()
            Dim type As Type = instance.GetType()
            Dim result As Boolean = ex.GetType().IsAssignableFrom(type)
            If result Then
                Dim ldapEx As LdapException = CType(ex, LdapException)
                Trace.TraceInformation("\nerreur Ldap Connect :\n\t: " & ldapEx.ErrorCode & " " & ex.Message & " " & ex.StackTrace)
                Trace.Flush()
            End If
            Return Nothing
        End Try
 
    End Function

à l'éxécution je reçois l’exception de type Serveur n'est pas disponible :

w3wp.exe Information: 0 : \nerreur Ldap initResultsSesam:\n\t: 81 Le serveur LDAP n'est pas disponible. à System.DirectoryServices.Protocols.LdapConnection.Connect()
à System.DirectoryServices.Protocols.LdapConnection.SendRequestHelper(DirectoryRequest request, Int32& messageID)
à System.DirectoryServices.Protocols.LdapConnection.SendRequest(DirectoryRequest request, TimeSpan requestTimeout)
à System.DirectoryServices.Protocols.LdapConnection.SendRequest(DirectoryRequest request)
à classLdapConnection.initResultsSesam(String[] arrProprertiesToLoad, String ldapSearchFilter, String targetOu) dans E:\sird\IHM\wwwroot\SIRD\App_Code\classLdapConnection.vb:ligne 623

Est ce que vous pouvez m'aider Svp à diagnostiquer la cause de l'erreur ?

[François DORIN]

Bonjour,

L'erreur retournée indique que le serveur n'est pas disponible. Es-tu sûr de l'adresse du serveur et du port à utiliser ? Il n'y a pas de mécanismes qui viendrait perturber les communications (comme un pare feu) ?

[raicolin]

Bonjour François,

Merci de ton retour,

Normalement un flux est ouvert depuis mon serveur local vers le serveur cible avec le port 636 (celui de LDAPS), quand j'éxécute la commande telnet en utilisant le port LDAPS, la connexion est bien établie.

Je ne sais pas si c'est suffisant ou je dois demander des vérifications sur le serveur distant ?

Sinon j'ai pensé à une autre piste :est ce que je dois passer par l'installation d'une certification sur mon serveur local ?

Merci d'avance de ton retour.