Hi All,
Earlier my web server & domain controller (Windows 2000 server) was same at that time below script was running fine to change the user password in active directory.
Now the web server is upgraded to Windows server 2003 and separate Domain Controller(Windows server 2003) is there. To run the same script I replaced Line number 9 by sConnectString = "WINDOWS://dc1auth/" & sUser & ",user" but now this script is not is running. It is showing error at line number 10 always( syntax error)
Any body help me please...............
- <%@ Language=VBScript %>
- <%
- dim sUser, sPassword
- dim oUser, sConnectString
- sUser = request("txtUserName")
- sPassword = request("txtPassword")
- sNewPassword = request("txtNewPassword")
- if sUser = "" then Response.Redirect "ChangePassword.asp"
- sConnectString = "WinNT://dc1auth/" & sUser & ",user"
- Set oUser = GetObject(sConnectString)
- oUser.ChangePassword sPassword, sNewPassword
- If (Err.Number<>0) Then
- err_number = Hex(Err.Number)
-
If err_number = "8007005" Then
- err_text = "Your Account is locked out."
- elseIf err_number = "80070056" Then
- err_text = "Invalid Old NT Password."
- elseIf err_number = "800708AD" Then
- err_text = "The specIfied NT Account does not exist."
-
elseIf err_number = "800708C5" Then
- err_text = "Your new password cannot be the same as any of your previous passwords."
- else
err_text = "An error has occured "
- End If
%>
- <%= err_text%>
- <%
- Response.end
- End If
-
set oUser = Nothing
- %>
- The password has been updated for user <%=sUser%>. Click here to go back to the home page.