VB访问ApacheDS

步骤1：

安装ApacheDS，JXplorer这两个工具。

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

 

步骤3：

vb测试代码

1. Public Sub testaa()   '测试用函数   
2.     Dim LDAPtest   
3.     Dim ADSObject   
4.     Dim MembersContainer   
5.     Dim Item   
6.   
7.     Dim attributeName As String   
8.     Dim domainName As String   
9.        
10.     domainName = "192.168.1.106:10389"  
11.     
12.     On Error GoTo errorHandler   
13.         
14.     Set LDAPtest = GetObject("LDAP:")   
15.     Set ADSObject = LDAPtest.OpenDSObject("LDAP://192.168.1.106:10389/ou=system", "uid=admin,ou=system", "secret", 0)   
16.         
17.     Set MembersContainer = ADSObject.GetObject("organizationalUnit", "ou=users")   
18.     Set user = MembersContainer.GetObject("organizationalPerson", "uid=admin")   
19.     Item = user.Get("displayname")   
20.   
21.     Debug.Print Item   
22.   
23.     Set Item = Nothing   
24.     Set user = Nothing   
25.     Set MembersContainer = Nothing   
26.     Set ADSObject = Nothing   
27.     Set LDAPtest = Nothing   
28. errorHandler:   
29.     Debug.Print Error   
30. End Sub