<HTML>
<BODY>
<%
' Rename a given user
Set AU = Server.CreateObject("Persits.AspUser")
AU.LogonUser "MYDOMAIN", "Administrator", "xxxxxxxxx"
AU.Users("oldname").Rename "newname"
%>
</BODY>
</HTML>