<HTML>
<BODY>
<%
' Is this user a Domain Admin?
Set AU = Server.CreateObject("Persits.AspUser")
UserName = "peter"
If AU.Users(UserName).Groups("Domain Admins") Is Nothing Then
Response.Write "User " & UserName & " is not a Domain Admin."
Else
Response.Write "User " & UserName & " is a Domain Admin."
End If
%>
</BODY>
</HTML>