Connexion ldap + login + password Résolu

Question

Bonjour tout le monde, j'ai un gros souci, j'arrive, avec le code ci-dessous, a me connecter a ma base ldap, mais certains repertoires demande un login et un mot de passe pour pouvoir lire a l'interieur. Comment faire pour m'identifier svp?!

Public Function LDAPCheck(ByVal pays As String)


        Dim tex As String
        Dim conn As ADODB.Connection
        Dim rs As ADODB.Recordset


        conn = New ADODB.Connection
        conn.Provider = "ADSDSOObject"
        conn.Open("ADs Provider")


        Try
            rs = conn.Execute("[ldap://super.cool/o=paris/ou=people LDAP://super.cool/o=paris/ou=people];" & "(objectClass=*);ADsPath,objectClass,cn;subtree")
        
Catch e As Exception
            MsgBox(e.Message)
            ecritureFichier("Erreur de connexion &#224; la base LDAP : " & e.Message)
            Exit Function
        End Try


        While Not rs.EOF
            ecritureFichier(rs.Fields(0).Value.ToString)
            rs.MoveNext()
        End While


        conn.Close()
    End Function

cs_CanisLupus · Accepted Answer

Personnellement, apr&#232;s avoir beaucoup tatonn&#233;, j'ai finit par trouver cette solution qui fonctionne tr&#232;s bien chez moi, mais il n'y a pas de mot de passe car il s'agit d'un annuaire e-mail d'entreprise :

Sub Liste_Adresse_Mail()
Dim domaine As Object
Dim obj As Object
Dim user As Object


  ' Ouverture de l'annuaire
  Set domaine = GetObject("
[ldap://mail.toto.truc.fr:389/OU=public,OU=coucou,OU=bidule,O=truc,C=fr LDAP://mail.toto.truc.fr:389/OU=public,OU=coucou,OU=bidule,O=truc,C=fr
]")
  ' Liste des comptes
  For Each obj In domaine
    ' R&#233;cup des infos du compte obj.name
    Set user = GetObject("
[ldap://mail.toto.truc.fr:389/ LDAP://mail.toto.truc.fr:389/
]" & obj.Name & ",OU=public,OU=coucou,OU=rbidule,O=truc,C=fr")
    list1.AddItem user.EmailAddress
  Next
  
Set obj = Nothing
Set user = Nothing
Set domaine = Nothing


End Sub

Si &#231;a peut t'aider ...

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Salut,
Demande plut&#244;t &#224; l'administrateur de l'annuaire.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

franck7593 · Answer

J'ai deja demand&#233; il ma donner un login et un mot de passe, le probleme c'est que je sais pas ou placer les lignes dans mon code pour qu'il les prennent en compte.

cs_CanisLupus · Answer

Je pense que &#231;a doit se situer au niveau de la chaine de connexion, genre :


"User Id=xxxx;Password=xxxxx;"

D&#233;sol&#233;, je ne peux pas te donner plus de pr&#233;cisions, je ne lis pas l'annuaire LDAP de ma boite de la m&#234;me fa&#231;on.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

franck7593 · Answer

Ok merci, j'ai chang&#233; de methode pour me connecter, ca marche et tout mais le probleme c'est que quand je lui demande de me renvoyer un objectClass, etant donn&#233; qu'il y en a plusieurs, il me fait une erreur. (alors que si je lui demande un cn par exemple ca marche nikel)
Voici le code que j'utilise :

         
        Dim strPath, strUsername, strPassword As String
        Dim adsNamespaceLDAP As Object
        Dim adsMyObject As Object
        Dim uid As String
        Dim value As String


        strPath = "[ldap://super.cool/cn=dapfr,ou=dap,ou=,o= LDAP://super.cool/cn=dapfr,ou=dap,ou=,o=]genial"
        strUsername = "uid=FRZ,ou=people,o=genial"
        strPassword = "FR"
        adsNamespaceLDAP = GetObject("LDAP:")
        adsMyObject = adsNamespaceLDAP.OpenDSObject(strPath, strUsername, strPassword, 0)
        
        value = adsMyObject.objectClass

voila a quoi ressemble ma base ldap :
cn = fr
objectClass = top
objectClass = super

franck7593 · Answer

Merci c'est super sympa !!!

Connexion ldap + login + password

6 réponses

Discussions similaires