<% 
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"">Password changed successful! 
<br><br>" 
Response.Write "<input type=""button"" class=""A1"" name=""b2"" value="" Back "" 
onclick=""window.location.replace('default.asp');"">" 
Response.Write "" 
Else 
objContext.SetAbort 
Response.Write "<font class=""A2"" size=""2"" face=""Arial"">Wrong old password, back to  
reinput!<br><br>"&ErrMsg 
Response.Write "<input type=""button"" class=""A1"" name=""b2"" value="" Back "" 
onclick=""history.back();"">" 
Response.Write "" 
End If 
Set adsUser=Nothing 
End Sub  

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