用ASP修改NT登陆密码

用ASP修改NT登陆密码作者：佚名文章来源：不详点击数：更新时间：2005-1-30

<%
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 & "
"
Err.Clear
End If
End If
If Not foundErr Then
objContext.SetComplete
Response.Write "<font class=""A2"" size=""2"" face=""Arial"">Password changed successful!

"
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"">Wrong old password, back to
reinput!

"&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
%>

网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）　　去网站高手技术论坛讨论...

文章录入：admin 责任编辑：admin 【发表评论】【告诉好友】【打印此文】【关闭窗口】
	上一篇文章： ASP的函数详解(2) 下一篇文章：打印出全部服务器变量的方法