<HTML>
<BODY>
<%
' Enumerate local and domain groups on a given server
Set AU = Server.CreateObject("Persits.AspUser")
AU.Server = "\\myserver"
%>
<B>Local Groups:</B><BR>
<BLOCKQUOTE>
<% For Each Group in AU.LocalGroups %>
<% = Group.Name %><BR>
<% Next %>
</BLOCKQUOTE>
<P>
<B>Domain Groups:</B><BR>
<BLOCKQUOTE>
<% For Each Group in AU.Groups %>
<% = Group.Name %><BR>
<% Next %>
</BLOCKQUOTE>
</BODY>
</HTML>