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

时间:2022-08-22 16:49:17
  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