ASP列出NT用户组及用户

2009-9-16 10:10 645 0

摘要: '============================================================= '函数介绍：列出NT用户组...

关键词： nbsp Computer 用户用户组 Member ListGroup Function ComputerObj 函数 response

'============================================================= '函数介绍：列出NT用户组及用户'本函数使用ADSI，需要Administrators组用户权限'函数名称：ListGroup(Computer)'用法：ListGroup(计算机名称)'例：显示127.0.0.1计算机NT用户组及用户'ListGroup "127.0.0.1"'============================================================= 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 Nextend Function '列出指定用户组用户Function ListUser(Computer,Group)Set UserObj = GetObject("WinNT://"&Computer&"/"&Group)For Each Member in UserObj.Members Response.write "    组中用户："&Member.Name &" "NextEnd Function

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除