|
客户程序也可以利用IADsClass、IADsProperty和IADsSyntax接口在运行时刻确定目录对象的详细属性信息。操作步骤如下：
a.先绑定到目录对象的表结构对象，可以直接访问目录对象的“schema”属性。
b.用枚举的办法从表结构对象中找到强制属性或者可选属性，如果客户知道要访问的属性名则可以跳过这一步。
c.绑定到表结构对象的包容器对象。
d.从表结构对象的包容器对象获得属性的定义对象。
e.从属性定义对象获取属性信息，包括属性的语法信息等。
下面的代码演示了如何从获得表结构对象到访问“Owner”属性的细节信息的过程：
Dim obj As IADs
Dim cl As IADsClass
Dim pr As IADsProperty
Dim sy As IADsSyntax
Dim sc As IADsContainer
Set obj = GetObject("WinNT://MyDomain/myMachine")
Set cl = GetObject(obj.Schema)
Set sc = GetObject(cl.Parent)
Set pr = sc.GetObject("Property","Owner")
MsgBox "Attribute: " & pr.Name
MsgBox "Syntax:" & pr.Syntax
Set sy = GetObject(sc.AdsPath & "/" & pr.Syntax)
MsgBox "Syntax object: " & sy.Name & " of OleAutoDataType: " & sy.OleAutoDataType
(6) 增加或者删除目录对象。
利用包容器对象的IADsContainer接口的方法(见表4)，我们可以很方便地增加或者删除目录对象，举例如下：
Dim Container as IADsContainer
Dim NewUser as IADsUser
Set Container = GetObject("WinNT://MyDomain")
' Create the new wrapper.
Set NewUser = Container.Create("user", "PanAimin")
' Write it back to the DS
NewUser.SetInfo
' Set Jane's password.
NewUser.SetPassword("123")
' Delete the user.
Call Container.Delete("user","Mary")
ADSI的各种操作比较简单，只要我们能够理解ADSI的基本结构，并且对核心的几个接口以及常用提供者的一些接口有所了解，就可以用一致的方法访问目录服务，这也说明了ADSI作为通用目录服务标准为程序员带来的最大益处。
实现ADSI提供者要比使用ADSI复杂得多，通常情况下，我们只需使用系统已经定义的ADSI提供者。但如果确实应用需要，我们可以实现自定义的ADSI提供者。为了实现一个ADSI提供者，有一些特性是必须要支持的，而其它的特性则是可选的。下面是一些必须要实现的特性：
(1) 路径解析使用COM的命名规范(moniker)，其中名字空间对象必须要实现IParseDisplayName::ParseDisplayName函数以及IADsOpenDSObject接口。
(2) IADs接口必须实现属性的缓存技术，只有IADs::GetInfo函数和IADs::SetInfo函数才刷新缓存或提交到底层目录服务。
(3) 每一个包容器对象必须实现IADsContainer接口。
(4) 所有的ADSI对象都支持IDispatch接口，以便自动化客户访问属性和方法。
(5) 对于非自动化客户通过IDirectoryObject访问ADSI目录对象，而不是IADs接口。
(6) ADSI至少实现一个表结构包容器对象，以及相应的语法、属性和类别对象，分别支持接口IADsSyntax、IADsProperty或IADsClass，每个根节点必须包含它自己的表结构包容器对象。
为了让ADSI能够找到自定义的提供者，我们必须在实现了ADSI提供者之后，把它注册到系统注册表中。在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\ADs\Providers键下添加新的提供者项(指向提供者组件的ProgID)，如果读者感兴趣，可以检查该键项，以便确定当前系统已经安装了哪些提供者。
|
