<HTML>
<BODY>
<%
' Add a user interactively (similar to NT User Manager)
Set AU = Server.CreateObject("Persits.AspUser")
AU.LogonUser "MYDOMAIN", "Administrator", "xxxxxxx"
If Request("Save") <> "" Then
If Request("Pass1") <> Request("Pass2") Then
Response.Write("The new password was not correctly confirmed.<HR>")
Response.End
End If
Set NewUser = AU.AddLocalUser( Request("Name"), Request("Pass1"), Request("Comment") )
NewUser.FullName = Request("FullName")
NewUser.HomeDir = Request("HomeDir")
NewUser.MustChangePassword = (Request("Must") <> "")
NewUser.CannotChangePassword = (Request("Cannot") <> "")
NewUser.PasswordNeverExpires = (Request("Never") <> "")
NewUser.AccountDisabled = (Request("Disabled") <> "")
NewUser.SetInfo
Response.Write("<b>User added.</b><HR>")
End If
%>
<H1>User Properties</H1>
<TABLE>
<FORM Action="thisfilename.asp" METHOD=POST>
<TD>User Name:</TD><TD><INPUT SIZE=40 TYPE=TEXT NAME="Name"></TD><TR>
<TD>Full Name:</TD><TD><INPUT SIZE=40 TYPE=TEXT NAME="FullName"><TD><TR>
<TD>Description:</TD><TD><INPUT SIZE=40 TYPE=TEXT NAME="Comment"><TD><TR>
<TD>Home Dir:</TD><TD><INPUT SIZE=40 TYPE=TEXT NAME="HomeDir"><TD><TR>
<TD>Password:</TD><TD><INPUT SIZE=40 TYPE=PASSWORD NAME="Pass1"><TD><TR>
<TD>Confirm Password:</TD><TD><INPUT SIZE=40 TYPE=PASSWORD NAME="Pass2"><TD><TR>
</TABLE>
<HR>
<INPUT TYPE=CHECKBOX NAME=Must VALUE=1 CHECKED>
User Must Charge Password at Next Login<BR>
<INPUT TYPE=CHECKBOX NAME=Cannot VALUE=1>
User Cannot Change Password<BR>
<INPUT TYPE=CHECKBOX NAME=Never VALUE=1>
Password Never Expires<BR>
<INPUT TYPE=CHECKBOX NAME=Disabled VALUE=1>
Account Disabled<BR>
<INPUT TYPE=HIDDEN NAME=Save VALUE=1>
<BR>
<INPUT TYPE=Submit VALUE="Add user">
</FORM>
</BODY>
</HTML>