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
