ASP列出NT用户组及用户

epzk

于 2009-07-23 23:11:00 发布

阅读量558

点赞数

CC 4.0 BY-SA版权

分类专栏： asp 文章标签： asp function each

本文链接：https://blog.youkuaiyun.com/epzk/article/details/4375332

asp 专栏收录该内容

7 篇文章

订阅专栏

本文提供了一个VBScript脚本函数ListGroup，用于列举指定计算机上的所有NT用户组及其成员用户。该函数利用ADSI（Active Directory Service Interfaces）进行操作，并需要管理员权限。此外，还包含一个辅助函数ListUser，用于列出特定用户组内的所有用户。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'=============================================================
'函数介绍：列出NT用户组及用户
'本函数使用ADSI，需要Administrators组用户权限
'函数名称：ListGroup(Computer)
'用法：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