============================================================= '       感谢您使用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 "<p><b>以下为计算机"&Computer&"系统用户组及用户列表</b></p>" Set ComputerObj = GetObject("WinNT://"&Computer) ComputerObj.Filter = Array("Group")   For Each Member in ComputerObj    Response.Write "用户组："&Member.Name&"<br>"    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 &"<br>" Next End Function