通过 VBscript/ADO 访问 LDAP 服务器答案

【问题标题】：LDAP server access via VBscript/ADO通过 VBscript/ADO 访问 LDAP 服务器
【发布时间】：2009-06-09 22:38:42
【问题描述】：

当绑定到 LDAP 服务器时，ADO 能否访问 ADsPath 和 Name 以外的属性？

以下是我用来绑定和查询 Internet 上的 LDAP 服务器的代码：

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

另外如何将上述代码中的搜索库分配给“o= xxxxxx University;c=US”？

【问题讨论】：

标签： vbscript ldap ado

【解决方案1】：

见How To Use ADO to Access Objects Through an ADSI LDAP Provider。

连接对象Execute方法的 CommandText（第一个对象）是一个 LDAP 由四个元素组成的查询用分号隔开，在以下格式：

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

其中adsidn 是专有名称 (DN) 为您的起点查询用 ADsPath 格式表示 “/”分隔符和根命名空间在左边。你也可以使用 X.500 样式属性名称具有相对区别的格式用逗号和词根分隔的名称右侧的名称空间。

返回ADsPath、class和cn all 中所有对象的属性收件人容器 Exchange 服务器，您可以使用以下 CommandText（URL 格式）：

LDAP:; (objectClass=*);ADsPath,objectClass,cn;子树

总而言之，

  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

【讨论】：