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 ?