请教：在AD中 通过代码来扩展Schema?

bingge

请教：我在AD中，通过手工可以扩展Schema,添加的新的类和新的属性类别，但这两天有新要求要用代码来实现：查到相关代码如下（添加新的属性)
   Dim property As IADsProperty
    Dim Container As IADsContainer

    Set Container = GetObject("LDAP://192.168.0.117/schema"

    Set property = Container.Create("roperty", "cn=gaoTest"
    property.Put "LDAPDisplayName", "gaoTest"
    property.Put "governsID", "1.3.6.1.4.1.999.36"
    property.Put "Syntax", "DirectoryString"
    property.SetInfo
   到property.SetInfo 出错：自动化错误！
  可能的原因是：attributeSchema有一些特定的必备属性没有赋值，所有请教哪位曾用代码扩展了AD的Schema指点一下，上面还缺什么，或者哪里写错了？
非常感谢各位的回答！

py

还是AD强大，还能通过代码加入，不知道openldap是不是可以？

bingge

openldap我未用过，不太清楚！

apple0718

感觉openldap比AD管理上方便的多.而且相关的访问工具也很多.可以跟很多其他的软件集成认证.