服务器之家

服务器之家 > 正文

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

时间:2019-10-26 12:12     来源/作者:asp技术网
  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  
标签:

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
返回顶部