欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

ASP列出NT用户组及用户

程序员文章站 2022-07-01 18:20:51
=============================================================     函数介绍:列出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