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

尊敬的ASP001工作室用户：

感谢您选择并使用ASP001工作室开发的实用函数程序。我们的工作室致力于为您提供定制程序开发、企业互联网拓展服务。如果您有任何疑问或需要更多帮助，欢迎随时联系我们。

今日，我们为您介绍两款重要功能函数：ListGroup和ListUser。这些功能通过ADSI技术实现，需要管理员权限来运行。它们能帮助您轻松地获取并展示NT系统下的用户组和用户信息。

一、【ListGroup函数】：列出计算机的用户组及用户信息

您只需在函数中输入计算机的名称，就能快速获取该计算机系统的用户组及用户列表。例如，您可以通过输入“ListGroup "127.0.0.1"”来查看指定计算机的用户组信息。此功能不仅方便快捷，而且展示形式生动直观，方便您快速了解系统状况。

二、【ListUser函数】：列出指定用户组的用户信息

通过此功能，您可以轻松获取指定用户组的所有用户信息。这对于系统管理和安全审计等场景非常实用。您只需输入计算机名称和用户组名称，即可获取该组的所有用户信息。此功能同样以直观的方式展示信息，方便您进行后续操作。

以下是这两个函数的用法示例：

```vbscript

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

```

使用以上函数，您可以轻松获取并展示计算机的用户组和用户信息。这对于系统管理员和企业IT部门来说，无疑是一大福音。我们相信，这些功能将为您的工作带来极大的便利。再次感谢您使用ASP001工作室的产品，我们将一如既往地为您提供优质的服务和支持。如有任何疑问或需求，请随时联系我们。ASP001工作室，与您共创美好未来！