Если вы используете VB Script на своей странице .ASP, вы можете использовать что-то вроде этого
<%
strDomain = "YOURDOMAIN"
strUserName = "USERACCOUNT"
strGroupName = "Domain Users"
Set ObjUser = Getobject("WinNT://" & strDomain & "/" & strUserName & ",user")
For Each objGroup in ObjUser.Groups
If UCase(strGroupName) = UCase(objGroup.Name) Then
'Found a match!
End If
Next
%>