使用ASP列出NT用户组及用户

1. =============================================================  
2. '       感谢您使用ASPKU工作室开发的实用函数程序  
3. '               HTTP://WWW.ASPKU.NET  
4. '=============================================================     'ASPKU工作室为您提供订制程序开发、企业互联网拓展服务  
5. 'QQ：
6. 'E-Mail：
7. '更多程序下载请到HTTP://WWW.ASPKU.NET  
8. '=============================================================       
9. '函数介绍：列出NT用户组及用户  
10. '本函数使用ADSI，需要Administrators组用户权限  
11. '函数名称：ListGroup(Computer)  
12. '程序开发：ASPKU工作室 ChuQi  
13. '用法：ListGroup(计算机名称)  
14. '例：显示127.0.0.1计算机NT用户组及用户  
15. 'ListGroup "127.0.0.1"  
16. '=============================================================  
17.  
18. Function ListGroup(Computer)  
19. response.write "<p><b>以下为计算机"&Computer&"系统用户组及用户列表</b></p>"  
20. Set ComputerObj = GetObject("WinNT://"&Computer)  
21. ComputerObj.Filter = Array("Group")   
22.  For Each Member in ComputerObj  
23.    Response.Write "用户组："&Member.Name&"<br>"  
24.    ListUser Computer,Member.Name   
25.  Next  
26. end Function  
27.  
28. '列出指定用户组用户  
29. Function ListUser(Computer,Group)  
30. Set UserObj = GetObject("WinNT://"&Computer&"/"&Group)  
31. For Each Member in UserObj.Members  
32.  Response.write "    组中用户："&Member.Name &"<br>"  
33. Next  
34. End Function