日期:2010-10-05  浏览次数:20583 次

客户程序也可以利用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),如果读者感兴趣,可以检查该键项,以便确定当前系统已经安装了哪些提供者。