Discussion :

[Dark Ryus]

Bonjour,

Je dois me connecter à un annuaire LDAP pour récupérer un certificat.
Je suis en VB.Net.

J'ai fait beaucoup de tentatives mais j'ai des erreurs plutôt vagues et après des jours de recherche je bloque toujours.

Je retrouve presque tout le temps les même exceptions :
- System.Runtime.InteropServices.COMException(0x80072030): There is no such object on the server at System (Cet objet ne se trouve pas sur le serveur)
- COMException (0x8007200a): L’attribut ou la valeur de service d’annuaire spécifié n’existe pas

Dans tous les cas une exception se lève quand j'appelle FindOne() ou FindAll().

Dans mon exemple de code ci-dessous vous pourrez voir des morceau en commentaires car j'essai de faire un peu de tout et n'importe quoi pour arriver à faire quelque chose.

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
'Dim ldapUrl = "LDAP://annuaire.sesam-vitale.fr"
                Dim ldapUrl = "LDAP://annuaire.sesam-vitale.fr/cn=amo_pj.test@test.rss.fr,ou=AC-FACTURATION,ou=AC-SESAM-VITALE-2034,o=sesam-vitale,c=fr"
 
                Dim de As DirectoryEntry = New DirectoryEntry(ldapUrl)
                de.AuthenticationType = AuthenticationTypes.None
                Dim dsearch As DirectorySearcher = New DirectorySearcher(de)
                dsearch.Filter = "(objectClass=*)"
                'dsearch.Filter = ""
                Dim rs As SearchResult = dsearch.FindOne()
                'Dim rc As SearchResultCollection = dsearch.FindAll()
 
                'de = rs.GetDirectoryEntry()
 
                'For Each r As SearchResult In rc
                '    If r.Properties.Contains("userCertificate") Then
                '        Dim b As Byte() = de.Properties("userCertificate").Value
                '        Dim cert1 As X509Certificate = New X509Certificate(b)
                '    End If
                'Next

Je suis vraiment bloqué, je n'ai pas de connaissance sur les annuaires LDAP et tout ce qui est certificat.

Merci

[Dark Ryus]

J'ai résolu mon problème. C'était bien un problème de syntaxe.

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
Public Function certificatLDAP() As X509Certificate2
 
            Dim certificat As X509Certificate2 = Nothing
 
            Dim ldapconn As LdapConnection = New LdapConnection(New LdapDirectoryIdentifier("annuaire.sesam-vitale.fr"))
 
            Try
 
                ldapconn.AuthType = AuthType.Anonymous
                ldapconn.SessionOptions.ProtocolVersion = 3
 
 
                Dim attribut(1) As String
                attribut(0) = "userCertificate;binary"
 
                Dim request As SearchRequest = New SearchRequest("cn=amo_pj.test@test.rss.fr,ou=AC-FACTURATION,ou=AC-SESAM-VITALE-2034,o=sesam-vitale,c=fr", "(ObjectClass=*)", Protocols.SearchScope.Base, attribut)
 
                Dim reponse As SearchResponse = CType(ldapconn.SendRequest(request), SearchResponse)
 
                For Each test As SearchResultEntry In reponse.Entries
                    For Each toto As DictionaryEntry In test.Attributes
                        Dim tata As DirectoryAttribute = toto.Value
                        Dim tutu As Byte() = tata(0)
                        Return New X509Certificate2(tutu)
                    Next
                Next
 
            Catch ex As Exception
                Throw ex
            Finally
                ldapconn.Dispose()
            End Try
 
            Return certificat
        End Function