你试试这个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的开发,不过现在都忘了,如果你要我可以给你一些资料
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的开发,不过现在都忘了,如果你要我可以给你一些资料
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货