【下载文档:  使用asp列出NT用户组及用户.txt 】

---

使用ASP列出NT用户组及用户
============================================================= ' 感谢您使用ASP001工作室开发的实用函数程序 ' HTTP://WWW.ASP001.NET '============================================================= 'ASP001工作室为您提供订制程序开发、企业互联网拓展服务 'QQ：1974229 'E-Mail：Shenyangchuqi@tom.com '更多程序下载请到HTTP://WWW.ASP001.NET '============================================================= '函数介绍：列出NT用户组及用户 '本函数使用ADSI，需要Administrators组用户权限 '函数名称：ListGroup(Computer) '程序开发：ASP001工作室 ChuQi '用法：ListGroup(计算机名称) '例：显示127.0.0.1计算机NT用户组及用户 'ListGroup "127.0.0.1" '============================================================= Function ListGroup(Computer) response.write "

以下为计算机"&Computer&"系统用户组及用户列表

" Set ComputerObj = GetObject("WinNT://"&Computer) ComputerObj.Filter = Array("Group") For Each Member in ComputerObj Response.Write "用户组："&Member.Name&"
" ListUser Computer,Member.Name Next end Function '列出指定用户组用户 Function ListUser(Computer,Group) Set UserObj = GetObject("WinNT://"&Computer&"/"&Group) For Each Member in UserObj.Members Response.write " 组中用户："&Member.Name &"
" Next End Function