so the enumgroup it would be

still semi code:
Code:

dim $adminGroups[0]
for each $group in enumgroup()
 if instr($group,"admin")
  $adminGroups[ubound($adminGroups)] = $group
  redim preserve $adminGroups[ubound($adminGroups)+1]
 endif
next
redim preserve $adminGroups[ubound($adminGroups)-1]
_________________________
!

download KiXnet