<HTML>
<BODY>

<%
' Give Everyone "Read" (RX) access to a file
Set AU = Server.CreateObject("Persits.AspUser")
AU.LogonUser "MYDOMAIN", "Administrator", "xxxxx"
Set File = AU.File("d:\somefile.txt")

File.AllowAccess "Everyone", GENERIC_READ + FILE_GENERIC_EXECUTE

%>

</BODY>
</HTML>