加入收藏 | 设为首页 | 会员中心 | 我要投稿 银川站长网 (https://www.0951zz.com/)- 云通信、基础存储、云上网络、机器学习、视觉智能!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

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

发布时间:2023-08-21 11:24:45 所属栏目:Asp教程 来源:
导读:=============================================================' 感谢您使用ASP001工作室开发的实用函数程序' HTTP://WWW.ASP001.NET'=========================================

=============================================================

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

(编辑:银川站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章