seawavecau

2007-07-27

关键字: VB访问ApacheDS

步骤1：

安装ApacheDS，JXplorer这两个工具。

步骤2：ApacheDS 的目录结构。注意要有system->users->admin目录结构。

步骤3：

vb测试代码

Public Sub testaa() '测试用函数
Dim LDAPtest
Dim ADSObject
Dim MembersContainer
Dim Item
Dim attributeName As String
Dim domainName As String
domainName = "192.168.1.106:10389"
On Error GoTo errorHandler
Set LDAPtest = GetObject("LDAP:")
Set ADSObject = LDAPtest.OpenDSObject("LDAP://192.168.1.106:10389/ou=system", "uid=admin,ou=system", "secret", 0)
Set MembersContainer = ADSObject.GetObject("organizationalUnit", "ou=users")
Set user = MembersContainer.GetObject("organizationalPerson", "uid=admin")
Item = user.Get("displayname")
Debug.Print Item
Set Item = Nothing
Set user = Nothing
Set MembersContainer = Nothing
Set ADSObject = Nothing
Set LDAPtest = Nothing
errorHandler:
Debug.Print Error
End Sub