你试试这个Private Sub Command1_Click()
    Dim ADsPathUser
    Dim p
    
    ADsPathUser = "WinNT://zhangzhi/Administrator"
    
    Dim oUser
    Set oUser = GetObject(ADsPathUser)    Dim UseSchema
    Set UseSchema = GetObject(oUser.Schema)
    For Each aa In UseSchema.OptionalProperties
        MsgBox aa
    Next
End Sub我很久以前做过membership和ldap的开发,不过现在都忘了,如果你要我可以给你一些资料