<HTML>
<BODY>
<%
' Set "User Must Change Password at Next Logon" property
Set AU = Server.CreateObject("Persits.AspUser")
AU.LogonUser "MYDOMAIN", "Administrator", "xxxxx"
Set User = AU.Users("some user")
User.MustChangePassword = True
User.SetInfo ' Save changes
%>
</BODY>
</HTML>