break on



for each $group in enumgroups('jacksonville')

? $group

next







Function EnumGroups(optional $filter)

     dim $domain, $group, $groups

     $domain = getobject("WinNT://@domain")

     $domain.filter = "group",""

     for each $group in $domain

	  if not $filter or instr($group.name,$filter)

          	$groups = $groups + '|' + $group.name

		endif

          next

     $domain = 0

     $EnumGroups = split(substr($groups,2),'|')

     EndFunction