============================================================= ' 感谢您使用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

　　推荐阅读

　　TSYS资源特性的效率提高方法

http://www.tsov.net/blog/article.asp?id=416TSYS资源特性的以字符型存储的，所以在更新文件的判断比较麻烦，直接把类型改成数值型，方便，效率也有提高。 如： 原来的方法： Sql="select Top 5 Title,FilePath,S>>>详细阅读

本文标题：使用ASP列出NT用户组及用户

地址：http://www.17bianji.com/kaifa2/ASP/32815.html

 1/2    1