Вернуться к статье

 

Листинг 1. ChangePasswordEntry.asp.

NONEXECUTABLE
<%@ Language=VBScript %>






User Password Maintenance


 


Please enter your user name and New password below:






 
 

  User Name
  


 

   Existing Password
  


 

   New Password 
  



 



 

Листинг 2. ChangePassword1.asp.

<%@ Language=VBScript %>
<%
A dim sUser, sPassword
  dim oUser, sConnectString
B sUser = request("txtUserName")
  sPassword = request("txtPassword")
  sNewPassword = request("txtNewPassword")
  if sUser = "" then Response.Redirect "ChangePasswordEntry.asp"
Response.Write "User name is: " & sUser & " - " & sPassword & "
"
Response.Write "New Password is: " & sNewPassword & "
"
C sConnectString = "WinNT://bigboat/" & sUser & ",user"
  Response.Write "Connect string: " & sConnectString & "
"
  Set oUser = GetObject(sConnectString)
Response.Write "Logon user: " & Request.ServerVariables("LOGON_USER") & "
"
Response.Write "User Password: " & Request.ServerVariables("AUTH_PASSWORD") & "
"
D oUser.ChangePassword sPassword, sNewPassword
set oUser = Nothing
%>

 

Вернуться к статье