DZone Snippets: password code http://snippets.dzone.com/posts Fri, 25 Jul 2008 03:36:45 GMT DZone Snippets: password code Simple ASP page to reset passwords http://snippets.dzone.com/posts/show/4559 // This page allows to reset an AD account password. <br /><code> <br /><HTML><HEAD><TITLE>Reinitialisation de mot de passe</TITLE> <br /><META http-equiv=Content-Type content="text/html; charset=iso-8859-1"><LINK <br />href="files/v2006.css" type=text/css rel=stylesheet> <br /><BODY leftMargin=0 topMargin=30 marginwidth="0" marginheight="0"> <br /><FORM method=post> <br /><CENTER> <br /><TABLE cellSpacing=0 cellPadding=1 width=500 align=center bgColor=#26333e <br />border=0> <br /> <TBODY> <br /> <TR> <br /> <TD> <br /> <TABLE cellSpacing=0 cellPadding=1 width=500 align=center border=0> <br /> <TBODY> <br /> <TR bgColor=#f0f3f5> <br /> <TD width=160><IMG height=116 src="files/man_portable.jpg" <br /> width=160> </TD> <br /> <TD width=302 bgColor=#e5ebef> <br /> <TABLE cellSpacing=4 cellPadding=4 width="100%" align=center <br /> border=0> <br /> <TBODY> <br /> <TR> <br /> <TD class=medium colSpan=3 height=22> <br /> <% <br /> If Request.Form("login") = "" Then <br /> Response.Write("<B>Saisir le compte à reinitialiser</B>") <br /> Else <br /> Dim Group, Member, Domain, UserFound <br /> ' <br /> Domain ="FR-ERM" <br /> ' <br /> UserFound=0 <br /> <br /> Set Group = GetObject("WinNT://" & Domain & "/Domain Users") <br /> For Each Member In Group.Members <br /> ' Response.Write(Member.Name & "<BR>") <br /> If UCase(Member.Name) = UCase(Request.Form("login")) Then <br /> UserFound=1 <br /> If Member.AccountDisabled Then <br /> Response.Write(" " & Request.Form("login") &" est un compte desactive</B>") <br /> Exit For <br /> Else <br /> ' Essai de reinit de mot de passe <br /> Dim res <br /> res=Member.SetPassword(Request.Form("pass")) <br /> 'Member.Put "pwdLastSet", CLng(0) <br /> Member.Put "PasswordExpired", 1 <br /> Member.SetInfo <br /> Response.Write("<B>L'utilisateur "& Request.Form("login") & " a changé de mot de passe !<BR><BR></B>Il devra changer de mot de passe au prochain login.") <br /> Exit For <br /> End If <br /> End If <br /> Next <br /> If UserFound = 0 Then <br /> Response.Write(Request.Form("login") &" non trouvé dans le domaine "& Domain) <br /> End If <br /> <br /> End If <br /> %> <br /> <br /> </TD></TR> <br /> <TR> <br /> <TD class=td11 width="1%" height=22>Identifiant <br /> <br /> </TD> <br /> <TD class=td11 colSpan=2>Nouveau mot de passe</TD></TR> <br /> <TR> <br /> <TD width="25%"><INPUT maxLength=20 name=login> <br /> <br /> </TD> <br /> <TD width="20%"><INPUT type=password maxLength=10 size=10 <br /> name=pass> </TD> <br /> <TD><INPUT type=image height=18 alt="Reset !" width=15 <br /> src="files/submit.gif" value=login border=0 name=ok> <br /> </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></CENTER></FORM></BODY></HTML> <br /></code> Thu, 20 Sep 2007 07:01:29 GMT http://snippets.dzone.com/posts/show/4559 bouffon69 (Sylvain Le Courtois)