Récupération de données LDAP Lotus Domino

Question

Bonjour,

Je voudrais récupérer certains champs d'un annuaire LDAP sous Lotus Domino dans des programmes VB6, VBS et ASP.

Si quelqun connait une solution, merci par avance.

Sous VB6 j'arrive à voir les infos récupérées, mais je ne peux pas les positionner dans des variables. Si je pose un espion sur mon recordset, je vois les valeurs récupérées, mais je n'arrive pas à les mettre dans mes variables de tableau.

Voici mon code:

sqlStmt = "SELECT CN,SN,GIVENNAME,MAIL FROM 'LDAP://" + ServerName + "' WHERE objectClass='OrganizationalPerson'"

'create Active Directory Service Object
Set con = CreateObject("adodb.connection")
con.Provider = "ADSDSOOBject"

'construct connection string
connStr = "CN=" + LoginName
'connStr = LoginName

'open connection + password
con.Open "ADs Provider", connStr, Pwd

Set rs = con.Execute(sqlStmt)

'OUVERTURE DES HANDLES FICHIERS POUR L EXTRACTION'
'------------------------------------------------'
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.CreateTextFile(file_courant, True)

'ECRITURE DES ENTETES DANS LE FICHIER D EXTRACTION'
'-------------------------------------------------'
fil.writeline ("CN;SN;GIVENNAME;MAIL")

'ECRITURE DES LIGNES DE DONNEES DANS LE FICHIER LIGNE PAR LIGNE'
'--------------------------------------------------------------'
If Not rs.EOF Then
While Not rs.EOF

    For j = 0 To 3
      If IsNull(rs.Fields(j).Value) Then
         tableau(j) = ""
            Else: tableau(j) = rs.Fields(j).Value
       End If
    Next
    
    'LIGNE DE DONNEES'
    fil.writeline (tableau(0) & ";" & _
                   tableau(1) & ";" & _
                   tableau(2) & ";" & _
                   tableau(3))
    rs.MoveNext
   Wend
End If

cs_Cocochat · Answer

Salut,

Vous pouvez essayer d'utiliser l'activex LdapAx, qui permet de dialoguer avec Ldap tr&#232;s facilement, d'ajouter, modifier, supprimer et m&#234;me g&#233;rer les photos et les caract&#232;res accentu&#233;s. En plus tr&#232;s l&#233;ger (48Ko), t&#233;l&#233;chargeable sur 
www.ingeninfo.com

Bon courage, Seb.

Récupération de données LDAP Lotus Domino

1 réponse

Discussions similaires