Serveur LDAP accès via VBscript/ADO

ADO peut accéder à des attributs autres que ADsPath et le Nom quand il est lié à un serveur LDAP?

Ci-dessous le code que j'utilise pour lier et de l'interrogation d'un serveur LDAP sur l'internet:

Set ado = CreateObject("ADODB.Connection")                     
ado.Provider = "ADSDSOObject"
ado.Properties("User ID") = ""                                
ado.Properties("Password") = ""
ado.Properties("Encrypt Password") = False
ado.Open "NameSearch"                                     


serverName = "xxxxxx.xxxx.xxx"                           
filterStr = "(objectClass=*)"     

Set Ol= ado.Execute("<LDAP://" & serverName & ">;" & filterStr & ";ADsPath;SubTree")

While Not Ol
    WScript.Echo Ol.Fields(0).value
    Ol.MoveNext                                        
Wend

Aussi comment faire attribuer la base de recherche dans le code ci-dessus à "o= xxxxxx Université;c=US"?

OriginalL'auteur | 2009-06-09

  1. 3

    Voir Comment Utiliser ADO pour Accéder à des Objets Par l'intermédiaire d'un Fournisseur ADSI LDAP.

    L'objet de connexion méthode Execute de l'
    CommandText (premier objet) est un LDAP
    requête composée de quatre éléments
    séparés par des points-virgules, dans le
    format suivant:

    <LDAP://server/adsidn>;ldapfilter;attributescsv;scope

    où adsidn est le nom unique
    (DN) du point de départ de votre
    requête exprimée format ADsPath avec
    "/" séparateurs et de la racine de la
    espace de noms de la gauche. Vous pouvez également
    l'utilisation d'un X. 500 style attribué le nom de
    format avec l'unique relatif
    les noms séparés par des virgules et de la racine
    le nom de l'espace vers la droite.

    Pour retourner le ADsPath, class, et cn
    les attributs de tous les objets dans tous les
    les conteneurs de destinataires dans un
    Exchange server, vous pouvez utiliser le
    CommandText suivant (dans le format d'URL):

    LDAP:; (objectClass=*);ADsPath,objectClass,cn;sous-arbre

    De mettre tout cela ensemble,

      Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset

  Set conn = New ADODB.Connection
  conn.Provider = "ADSDSOObject"
  conn.Open "ADs Provider"

  Set rs = conn.Execute( _ 
        "<LDAP://server/o=organization/o=xxxxxx University/c=US>;" _
        & "(objectClass=*);ADsPath,objectClass,cn;subtree")

  While Not rs.EOF
     Debug.Print rs.Fields(0).Value, rs.Fields(1).Value, _
           rs.Fields(2).Value
     rs.MoveNext
  Wend

  conn.Close

    OriginalL'auteur Eugene Yokota