2

我在将 Visual Basic (6) 与 LDAP 结合使用时遇到了问题。当我尝试连接到 LDAP 存储时，我总是会收到诸如“路径名错误”或“表不存在”之类的错误（取决于代码的样子）。

这是我编写的连接代码的一部分：

path = "LDAP://xx.xxx.xxx.xxx:xxx/"
Logging.WriteToLogFile "Test1", logINFO

Set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADsDSOObject"
conn.Properties("User ID") = "USER_ID"
conn.Properties("Password") = "PASSWORD"
conn.Properties("Encrypt Password") = True
conn.Properties("ADSI Flag") = 34

Logging.WriteToLogFile "Test2", logINFO
conn.Open "Active Directory Provider"
Logging.WriteToLogFile "Test3", logINFO

Set rs = conn.Execute("<" & path & "ou=Some,ou=Kindof,o=Searchbase>;(objectclass=*);name;subtree")

Logging.WriteToLogFile "Test4", logINFO

日志文件显示“Test1”、“Test2”、“Test3”，然后是“表不存在”，因此出现问题的是“Set rs = conn.Execute(...)”行（很明显...）。

在我的代码中，我尝试以安全的方式进行连接。我发现它与 SSL/证书无关，因为也无法建立匿名的不安全连接。有趣的是：我在 .NET 中用五分钟编写了一个小型测试应用程序。使用该应用程序，我能够（匿名）连接并从 LDAP 存储读取结果，完全没有问题。

有没有人对 LDAP 和 VB6 的组合有任何经验，也许知道可能是什么问题？我用谷歌搜索并看到了一些示例代码片段，但不幸的是它们都不起作用（与结果相同的错误消息）。提前致谢！

4

2 回答 2

3

我不确定这会有多大帮助，但我使用此代码访问 Active Directory 对象。

   Set oinfo = New ADSystemInfo
    sDomain = Split(oinfo.DomainDNSName, ".")
    '-- Get Datasets from the Active Directory

    '-- Connect to Active Directory in logged in domain
    con.Open "Provider=ADsDSOObject;Encrypt Password=False;Integrated Security=SSPI;Data Source=ADSDSOObject;Mode=Read;Bind Flags=0;ADSI Flag=-2147483648"

    '-- Query all serviceConnectionPoints in the Active Directory 
    '-- that contain the keyword "urn://tavis.net/TM/Database" 
    '--  and return the full path to the object

    Set rst = con.Execute("<LDAP://DC=" & sDomain(0) & ",DC=" & sDomain(1) & ">;(&(objectCategory=serviceConnectionPoint)(keywords=urn://tavis.net/TM/Database));Name, AdsPath;subTree")
于 2008-09-22T13:16:01.343 回答
1

2件事：

  • 方法调用需要额外的Open()参数，服务器/用户名/密码

  • 您传递给的 LDAP 查询Execute()应该是： 

    "<" & path & "ou=Some/ou=Kindof/o=Searchbase>;(objectclass=*);name;subtree"
于 2009-03-13T13:19:32.710 回答