Listing 2: ChangePassword1.asp
NONEXECUTABLE

<%@ Language=VBScript %>
<%

'CALLOUT A
dim sUser, sPassword
dim oUser, sConnectString
'END CALLOUT A

'CALLOUT B
sUser = request("txtUserName")
sPassword = request("txtPassword")
sNewPassword = request("txtNewPassword")
if sUser = "" then Response.Redirect "ChangePasswordEntry.asp"
'END CALLOUT B

Response.Write "User name is: " & sUser & "  --  " & sPassword & "<br>"

Response.Write "New Password is: " & sNewPassword & "<br>"

'CALLOUT C
sConnectString = "WinNT://bigboat/" & sUser & ",user"
Response.Write "Connect string: " & sConnectString & "<br>"

Set oUser = GetObject(sConnectString)
'END CALLOUT C

Response.Write "Logon user: " & Request.ServerVariables("LOGON_USER") & "<br>"
Response.Write "User Password: " & Request.ServerVariables("AUTH_PASSWORD") & "<br>"

'CALLOUT D
oUser.ChangePassword sPassword, sNewPassword
'END CALLOUT D

set oUser = Nothing

%>