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
