Use ASP to list NT user groups and users _ Application Tips

=============================================================
' Thank you for using the utility function program developed by the ASP001 studio
' HTTP://WWW.ASP001.NET
' ============================================================= ' ASP001 studio to provide you with custom program development, corporate Internet Outreach services
' qq:1974229
' E-mail:shenyangchuqi@tom.com
' More programs download please go to HTTP://WWW.ASP001.NET
'=============================================================
' Function Description: List NT user groups and users
' This function uses ADSI and requires Administrators group user rights
' Function name: Listgroup (Computer)
' Program development: ASP001 Studio Chuqi
' Usage: listgroup (computer name)
' Example: Display 127.0.0.1 computer NT user groups and users
' Listgroup ' 127.0.0.1 '
'=============================================================

Function Listgroup (Computer)
Response.Write "<p><b> The following is the computer" &Computer& "System user Group and user list </b></p>"
Set computerobj = GetObject ("winnt://" &computer)
Computerobj.filter = Array ("Group")
For all in ComputerObj
Response.Write "User group:" &Member.Name& "<br>"
Listuser Computer,member.name
Next
End Function

' Lists users of specified user groups
Function Listuser (Computer,group)
Set userobj = GetObject ("winnt://" &Computer& "/" &group)
For all in Userobj.members
Response.Write Users in Group: &member.name & <br>
Next
End Function