关键词：ADSI, Component, ASP, IIS
摘要：本文简要介绍了ADSI的特性，并通过实例介绍了如何利用ADSI开发基于WEB的Windows NT管理程序。
ADSI（Active Directory Service Interface）是Microsoft公司推出的允许客户以同一种界面管理不同目录服务的应用接口，它凭借强大的功能、简单的操作很快得到了广泛的应用。那么，ADSI究竟是怎样的东西，又如何利用呢？
首先，要明白什么是Active Directory(活动目录)。
Active Directory是未来的Windows2000中包含的一种目录服务，它扩展了以前版本Windows中目录服务的特性，并增加了一些全新的功能。活动目录具有安全、可分布、可分区、可复制等特点。它的设计方式可以很好地工作在各种设置上，不管是有几百个对象的单机还是由上百万个对象的服务器组。活动目录的新特性，是管理者和最终用户都可以操纵、管理大量的信息。
ADSI是一系列访问各种存储方式的数据的编程接口，在Microsoft目前的产品中，Windows NT4.0Server,Exchange,IIS,Site Server支持这种接口，在NT5.0种，ADSI将成为操作系统的接口并有可能取代注册表。采用这种借口，可以访问操作系统的所有配置信息。
ADSI认为任何数据都存为面向对象的数据库。通过ADSI，你不要掌握类似SQL一类的查询语言，与传统的数据库相比，对面向对象的数据库变成更加简单：在传统的数据库中，编程者必须理解一个对象怎样存储，在ADSI中，编程者只需知道对象的名字就可以访问它。
有很多种语言可以用来对ADSI进行编程，Visual Basic,VBScript,Java,C,C++都可以访问ADSI；由于Active Server Pages和VBScript与其结合的非常好，所以可以很容易写出访问目录服务的Internet应用程序。在Internet应用程序中，可以使用.asp文件在服务器上创建、操纵ADSI对象，并将其结果显示在Web页上。
来看一个简单的例子：
生成一个包含以下代码的ASP文件：
<%
strMachineName = "localhost" 'domain name
strObjectPath = "W3SVC/1" 'object name

'construct object location in IIS
strPath = "IIS://" & strMachineName & "/" & strObjectPath
Set IISObject = GetObject (strPath) 'connect to IIS metabase
%>
Name = "<%= IISObject.Name %>" 
Parent= "<%= IISObject.Parent %>" 
SchemaLocation = "<%= IISObject.Schema %>" 
Class = "<%= IISObject.Class %>" 
Guid = "<%= IISObject.Guid %>" 
ADSPath = "<%= IISObject.AdsPath %>" 

用浏览器浏览，输出结果如下：

Name = "1"
Parent= "IIS://localhost/W3SVC"
SchemaLocation = "IIS://localhost/schema/IIsWebServer"
Class = "IIsWebServer"
Guid = ""
ADSPath = "IIS://localhost/W3SVC/1"

注意，如果要运行上面这段代码，登录用户必须拥有IIS的管理员权限，为了使这种应用更具有普遍性，可以将程序做成组建安装在服务器上。这里，举一个例子，做一个通过对ADSI编程修改Windows NT用户口令的组件。
1、打开VB5.0 或 6.0 ,新建一个ActiveX DLL
2、将工程命名为 PasswordChanger,将缺省的类模块命名为 Main.
3、将类Main的instancing属性改为：5-MultiUser
4、将工程的线程模块设为：单元线程
5、设定Microsoft Active DS Type Library(activeds.tlb)
6、保存工程，将类命名为：Main.cls,工程命名为PasswordChanger.vbp.
7、在类的代码窗口中加入以下代码：
Option Explicit

' 修改口令

Public Sub SetPassword(ByVal pstrUser As String, _
ByVal pstrOldPassword As String, ByVal pstrNewPassword _
As String, ByVal pstrConfirmPassword As String)

Dim adsUser As IADsUser
Dim strDialogText As String

[1] [2] [3] [4] 下一页

上一篇:2000下的xcopy可以复制文件的安全属性.

下一篇:网管的困惑：域控制器哪去了

ADSI及其在WEB上的应用相关文章：

·从零开始　无线网络终极应用宝典

·每周电脑应用技巧荟萃

·WindowsXP应用技巧的具体总结

·Windows XP 的超级应用技巧28例

ADSI及其在WEB上的应用相关软件：

·AUTOCAD 2002机械设计应用与实例

·ERP管理模式及应用教学视频详见查看

·AutoCAD应用技巧与常见问题你问我答

·万用表应用技巧

·中文版 AutoCAD2004 应用实例与技巧

·应用公司理财

·JAVA 2应用编程150例

·管理信息系统中的计算机应用串讲录音wma4

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.viphot.com

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.viphot.com All Rights Reserved.	鄂ICP备05000083号Powered by:viphot