用ASP的安全验证来对windows 2000的管理者密码进行在线修改

IIS的安全验证机制做得很好，我们可以用ASP的安全验证来对windows 2000的管理者密码进行在线修改。 当有人登录站点时，利用ServerVariables集合中的LOGIN_USER捕获登录帐号，前提是必须关闭IIS中允许匿名登录这个选项，然后在changepwd.asp文件中通过ADSI来修改密码。 以下是程序： changepwd.htm

输入旧密码：
输入新密码：
确认新密码：

changepwd.asp <% OldPwd=request.form("OldPwd") NewPwd=request.form("NewPwd1") UserName=request.form("UserName") Set oUser=GetObject("WinNT://ComputerName/" & UserName) oUser.ChangePassword OldPwd,NewPwd oUser.SetInfo set oUser=Nothing response.write "密码修改成功！" %>