用ASP修改NT登陆密码

新客网 XKER.COM 2003-04-15 来源： 收藏本文

<%
Sub ChangeUserPassword(Computer,UserName,oldPassword,newPassword)
Dim adsUser,foundErr,ErrMsg
On Error Resume Next
foundErr=False
ErrMsg=""
Set adsUser=GetObject("WinNT://"+Computer+"/"+UserName+",user")
If Err.Number<>0 Then
foundErr=True
ErrMsg="User not found!"
Err.Clear
Else
adsUser.ChangePassword oldPassword, newPassword
adsUser.SetInfo
If Err.Number<>0 Then
foundErr=True
ErrMsg=Now & ". Error Code: " & Hex(Err) & " - " & Err.Description & "<br>"
Err.Clear
End If
End If
If Not foundErr Then
objContext.SetComplete
Response.Write "<font class=""A2"" size=""2"" face=""Arial""><b>Password changed successful!
</b><br><br>"
Response.Write "<input type=""button"" class=""A1"" name=""b2"" value="" Back ""
onclick=""window.location.replace('default.asp');"">"
Response.Write "</font>"
Else
objContext.SetAbort
Response.Write "<font class=""A2"" size=""2"" face=""Arial""><b>Wrong old password, back to
reinput!</b><br><br>"&ErrMsg
Response.Write "<input type=""button"" class=""A1"" name=""b2"" value="" Back ""
onclick=""history.back();"">"
Response.Write "</font>"
End If
Set adsUser=Nothing
End Sub

response.write "NT的密码改为qian!"
Computer="yp"
UserName="sky"
oldPassword="dir"
newPassword="qian"
ChangeUserPassword Computer,UserName,oldPassword,newPassword
%>

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件