使用ASP列出NT用户组及用户
2018-09-06 12:53
=============================================================
感谢您使用ASP001工作室开发的实用函数程序
=============================================================ASP001工作室为您提供订制程序开发、企业互联网拓展服务
QQ：1974229
E-Mail：
更多程序下载请到
=============================================================
函数介绍：列出NT用户组及用户
本函数使用ADSI，需要Administrators组用户权限
函数名称：ListGroup(Computer)
程序开发：ASP001工作室ChuQi
用法：ListGroup(计算机名称)
例：显示127.0.0.1计算机NT用户组及用户
ListGroup127.0.0.1
=============================================================
FunctionListGroup(Computer)
response.write<p><b>以下为计算机&Computer&系统用户组及用户列表</b></p>
SetComputerObj=GetObject(WinNT://&Computer)
ComputerObj.Filter=Array(Group)
ForEachMemberinComputerObj
Response.Write用户组：<br>
ListUserComputer,Member.Name
Next
endFunction
列出指定用户组用户
FunctionListUser(Computer,Group)
SetUserObj=GetObject(WinNT://&Computer&/&Group)
Response.write组中用户：&Member.Name&<br>
Next
EndFunction