ASP列出NT用户组及用户

=============================================================    
函数介绍：列出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 "&nbsp;&nbsp;&nbsp;&nbsp;组中用户："&member.name &"<br>"
next
end function