利用VB组件实现WEB方式下对NT域用户口令的修改
的对话框，选“创建一个空的软件包”， 给包名命为 aciChangePassword ，单击下一步，指定运行包的帐号，使用管理员帐号即可。
双击刚才创建的包，展开，右击“组件”，选.“新”-->“组件”，安装新的组件。添加文件，浏览，选中刚才拷贝的文件 aciChangePassword.dll (\winnt\system32) ，确认。选中复选框“详细资料”，查看下面的列表框，应当看到组件名。确认后，修改属性，事务里选择“需要一个事务处理”。
直此，组件安装完成。
4、 创建ASP页面（setpass.asp）
<head>
<%
''declare variables
Dim objReference
Dim strUser
Dim strOldPassword
Dim strNewPassword
Dim strConfirmNewPassword
'' obtain form values
strUser = Request.Form("txtUser")
strOldPassword = Request.Form("txtOldPassword")
strNewPassword = Request.Form("txtNewPassword")
strConfirmNewPassword = Request.Form("txtConfirmNewPassword")
'' create object
Set objReference = Server.CreateObject("aciChangePassword.Main")
'' change the password
Call bjReference.SetPassword(strUser,strOldPassword,strNewPassword,strConfirmNewPassword)
'' release object reference
Set objReference = Nothing
%>
5、 创建HTML文件（change.htm）
<html>
<head>
<title>用户口令修改</title>
</head>
<body bgcolor="#FFFFFF" background="../images/backgrnd.gif">
<h2><font color="#0000FF"><big>用户口令修改</big></font></h2>
<form method="post" name="frmChangePassword" action="setpass.asp">
<table width="325" border="0">
<tr><td>
<font color="#0000FF"><b><font size="+1">用户</font><font size="+1" face="Arial">:</font>
</b></font></td>
<td><font color="#0000FF"><input type="text" size="20" name="txtUser"></font></td> </tr>
<tr>
<td><font color="#0000FF"><b><font size="+1">口令</font><font size="+1" face="Arial">: </font></b></font></td>
<td><font color="#0000FF"><input type="password" name="txtOldPassword" size="20"> </font></td> </tr>
<tr>
<td><font color="#0000FF"><b><font size="+1">新口令</font><font size="+1" face="Arial">:
</font></b></font></td>
<td><font color="#0000FF"><input type="password" name="txtNewPassword" size="20"&
双击刚才创建的包，展开，右击“组件”，选.“新”-->“组件”，安装新的组件。添加文件，浏览，选中刚才拷贝的文件 aciChangePassword.dll (\winnt\system32) ，确认。选中复选框“详细资料”，查看下面的列表框，应当看到组件名。确认后，修改属性，事务里选择“需要一个事务处理”。
直此，组件安装完成。
4、 创建ASP页面（setpass.asp）
<head>
<%
''declare variables
Dim objReference
Dim strUser
Dim strOldPassword
Dim strNewPassword
Dim strConfirmNewPassword
'' obtain form values
strUser = Request.Form("txtUser")
strOldPassword = Request.Form("txtOldPassword")
strNewPassword = Request.Form("txtNewPassword")
strConfirmNewPassword = Request.Form("txtConfirmNewPassword")
'' create object
Set objReference = Server.CreateObject("aciChangePassword.Main")
'' change the password
Call bjReference.SetPassword(strUser,strOldPassword,strNewPassword,strConfirmNewPassword)
'' release object reference
Set objReference = Nothing
%>
5、 创建HTML文件（change.htm）
<html>
<head>
<title>用户口令修改</title>
</head>
<body bgcolor="#FFFFFF" background="../images/backgrnd.gif">
<h2><font color="#0000FF"><big>用户口令修改</big></font></h2>
<form method="post" name="frmChangePassword" action="setpass.asp">
<table width="325" border="0">
<tr><td>
<font color="#0000FF"><b><font size="+1">用户</font><font size="+1" face="Arial">:</font>
</b></font></td>
<td><font color="#0000FF"><input type="text" size="20" name="txtUser"></font></td> </tr>
<tr>
<td><font color="#0000FF"><b><font size="+1">口令</font><font size="+1" face="Arial">: </font></b></font></td>
<td><font color="#0000FF"><input type="password" name="txtOldPassword" size="20"> </font></td> </tr>
<tr>
<td><font color="#0000FF"><b><font size="+1">新口令</font><font size="+1" face="Arial">:
</font></b></font></td>
<td><font color="#0000FF"><input type="password" name="txtNewPassword" size="20"&