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

 

• 
• 描述: ApacheDS目录结构
• 大小: 14.5 KB

• 查看图片附件

分享到：

jdom解析xml示例 | LDAP 入门知识

• 2007-07-27 16:31
• 浏览 2081
• 评论(0)
• 查看更多