关键词: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</P><P>'construct object location in IIS strPath = "IIS://" & strMachineName & "/" & strObjectPath Set IISObject = GetObject (strPath) 'connect to IIS metabase %> Name = "<%= IISObject.Name %>"<br> Parent= "<%= IISObject.Parent %>"<br> SchemaLocation = "<%= IISObject.Schema %>"<br> Class = "<%= IISObject.Class %>"<br> Guid = "<%= IISObject.Guid %>"<br> ADSPath = "<%= IISObject.AdsPath %>"<br></P><P> 用浏览器浏览,输出结果如下:</P><P>Name = "1" Parent= "IIS://localhost/W3SVC" SchemaLocation = "IIS://localhost/schema/IIsWebServer" Class = "IIsWebServer" Guid = "{8B645280-7BA4-11CF-B03D-00AA006E0975}" ADSPath = "IIS://localhost/W3SVC/1"</P><P>注意,如果要运行上面这段代码,登录用户必须拥有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</P><P>' 修改口令</P><P>Public Sub SetPassword(ByVal pstrUser As String, _ ByVal pstrOldPassword As String, ByVal pstrNewPassword _ As String, ByVal pstrConfirmPassword As String)</P><P>Dim adsUser As IADsUser Dim strDialogText As String</P><P>On Error GoTo ChangePasswordErrorHandler '用户名不能为空 If pstrUser <> vbNullString Then '口令不能为空 If (Not (pstrOldPassword = vbNullString)) And _ (Not (pstrNewPassword = vbNullString)) Then '两次必须输入相同的口令 If (Not (pstrNewPassword <> pstrConfirmPassword)) Then</P><P>' 设定 ADSI 提供者为 WindowsNT ' (domain 为主域) Set adsUser = GetObject("WinNT://domain/" & pstrUser & ",user")</P><P>' 调用 ADSI ChangePassword 方法 adsUser.ChangePassword pstrOldPassword, pstrNewPassword ' 在浏览器端产生 HTML 对话框 strDialogText = """成功修改用户 " & pstrUser & _ " 的口令.""" Call CreateAlertMarkup(strDialogText)</P><P>Else</P><P>' 在浏览器端产生 HTML 对话框 strDialogText = """New/Confirm passwords are different.""" Call CreateAlertMarkup(strDialogText)</P><P>End If</P><P>Else</P><P>' 在浏览器端产生 HTML 对话框 strDialogText = """A value for Old/New passwords is required.""" Call CreateAlertMarkup(strDialogText)</P><P>End If</P><P>End If</P><P>Set adsUser = Nothing</P><P>Exit Sub</P><P>'**********</P><P>ChangePasswordErrorHandler:</P><P>' '在浏览器端产生提示 “错误” 对话框 strDialogText = """用户 " & pstrUser & "的口令无法修改.nn" strDialogText = strDialogText & "1. 新口令不能 " & _ "与以前的口令相同n" strDialogText = strDialogText & "2. 口令必须为 " & _ "8-14个字母长.n" strDialogText = strDialogText & "3. 口令至少要包含 " & _ "以下情况下的3个字母:n" strDialogText = strDialogText & " - 英文大写字母 (A-Z)n" strDialogText = strDialogText & " - 英文小写字亩 (a-z)n" strDialogText = strDialogText & " - 阿拉伯数字 (0-9)n" strDialogText = strDialogText & " - 其他字符" & _ " (例如标点符号)n" strDialogText = strDialogText & "4. 口令中不能包含你的用户名 " & _ "或你名字的任何一部分""" Call CreateAlertMarkup(strDialogText)</P><P>End Sub</P><P>' 产生JavaScript警告对话框 Private Sub CreateAlertMarkup(pstrDialogText As String)</P><P>Dim strScriptingLanguage As String</P><P>strScriptingLanguage = """JavaScript"""</P><P>objResponse.Write vbCrLf objResponse.Write ("<SCRIPT LANGUAGE=" & strScriptingLanguage & ">") & vbCrLf objResponse.Write ("<!--") & vbCrLf objResponse.Write ("{") & vbCrLf objResponse.Write vbTab & ("window.alert(" & pstrDialogText & ");") & vbCrLf objResponse.Write ("}") & vbCrLf objResponse.Write ("-->") & vbCrLf objResponse.Write ("</SCRIPT>") & vbCrLf</P><P>End Sub 8、 编译这段代码,生成PasswordChanger.dll. 9、 将产生的PasswordChanger.dll文件拷贝到 WINNTSYSTEM32目录下。 10、 在dos提示符窗口中执行以下命令: regsvr32 PasswordChanger.dll</P><P>系统将弹出一个对话框,告诉你登记组件成功。下面,需要写一个ASP文件来调用这个组件。 <html> <head> <%</P><P>' declare variables Dim objReference Dim strUser Dim strOldPassword Dim strNewPassword Dim strConfirmNewPassword </P><P>' obtain form values strUser = Request.Form("txtUser") strOldPassword = Request.Form("txtOldPassword") strNewPassword = Request.Form("txtNewPassword") strConfirmNewPassword = Request.Form("txtConfirmNewPassword") if strUser<>"" then</P><P>' create object Set objReference = Server.CreateObject("PasswordChanger.Main")</P><P>' change the password Call objReference.SetPassword(strUser,strOldPassword,strNewPassword,strConfirmNewPassword)</P><P>' release object reference Set objReference = Nothing end if %> <title>修改NT用户口令</title> </head></P><P><body bgcolor="#ffffff"></P><P><p><h2><font color=black face=Arial>修改NT用户口令</font></h2></p></P><P><form method="post" name="frmChangePassword" action="Changepwd.asp"> <table width=325 border="0"> <tr> <td colSpan=2><b> <font size=+1 face=Arial color=black> User: </font> </b> </td> <td> <input type=text size=20 name="txtUser"></td> </tr> <tr> <td colSpan=2><b> <font size=+1 color=black face=Arial> Password: </font> </b> </td> <td><font> <input type="password" name="txtOldPassword"> </font></td> </tr> <tr> <td colSpan=2> <b> <font size=+1 color=black face=Arial> New Password: </font> </b> </td> <td> <font> <input type="password" name="txtNewPassword"> </font> </td> </tr> <tr> <td colSpan=2><b> <font size=+1 color=black face=Arial> Confirm Password: </font></b></td> <td> <input type="password" name="txtConfirmNewPassword"> </font></td> </tr> <tr> <td colSpan=3></td> </tr> <tr> <td colSpan=3> <div align=center> <font color=black face=Arial> <INPUT id=txtChangePassword name=txtChangePassword style="font-FAMILY: ; HEIGHT: 24px; WIDTH: 149px" type=submit value="Change Password"> </div> </font> </td> </tr> </table> </form> </body> </html> 将此文件命名为changepwd.asp,在浏览器中运行,输入数据测试一下,怎么样,用户的口令是否已经修改了?</P><P>通过以上的例子可以看出,ADSI的确具有很强大的功能,操作也非常简单,结合ASP和VB,一定可以开发出功能更强大的Internet应用程序。
|
|