<HTML>
<BODY>
<%
' Is given name a user or group
Set AU = Server.CreateObject("Persits.AspUser")
NameToTest = "some name"
If Not AU.Users(NameToTest) Is Nothing Then
Response.Write NameToTest & " is a user."
Elseif Not AU.Groups(NameToTest) Is Nothing Then
Response.Write NameToTest & " is a domain group."
Elseif Not AU.LocalGroups(NameToTest) Is Nothing Then
Response.Write NameToTest & " is a local group."
Else
Response.Write NameToTest & " is neither a group nor a user."
End If
%>
</BODY>
</HTML>