Verbindung zu LDAP-Server aufbauen

[enne87]

Hi Leute!

Ich versuche gerade, mich mit einem LDAP-Server über eine sichere SSL-Verbindung zu verbinden.
Hier der Code:

Dim identifier As New LdapDirectoryIdentifier(m_strServer, 636)
        Dim con as  New LdapConnection(identifier, Nothing, AuthType.Basic)
        con.SessionOptions.ProtocolVersion = 3
        con.Credential = New NetworkCredential(strUserName, strUserPassword)
        con.SessionOptions.SecureSocketLayer = True
        con.AuthType = AuthType.Basic

        'trying to bind to the server after clicking OK-button
        Try
            Connection().Bind()
        Catch ex As Exception
            Return False
        End Try

Leider funktioniert das nicht, weil ich die Meldung bekomme, dass der Server nicht vorhanden ist.

Kann mir hier eventuell wer helfen?

lg enne