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 " 組中用戶："&Member.Name &"<br>" Next End Function
