<%
varServer = Server.CreateObject("WScript.Network").ComputerName
Set objNT = GetObject("WinNT://"&varServer)
For Each o in objNT
If o.Class = "User" Then
Set objNTuser = GetObject("WinNT://"&varServer&"/"&o.Name&",user")
Response.Write "" & o.Name & "
"
For Each varGrp In objNTuser.Groups
Response.Write varGrp.Name & "
"
Next
Response.Write "

"
End If
Next
%>