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


 

Листинг 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 %>

 


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