Here's one way to do it, this presents groups with the letter "o" in them:
Code:
Break ON
$=SetOption("Explicit","ON")
$=SetOption("WrapAtEOL","ON")
 
Dim $iIndex, $sGroup, $sAllGroups
 
$iIndex=0
$sGroup=EnumGroup($iIndex)
While Not @ERROR AND $sGroup
	$iIndex=$iIndex+1
	If InStr($sGroup,"o") $sAllGroups=$sAllGroups+@CRLF+$sGroup EndIf
	$sGroup=EnumGroup($iIndex)
Loop
 
$sAllGroups=Split($sAllGroups,@CRLF)
For $iIndex=1 to UBound($sAllGroups) CStr($iIndex)+". "+$sAllGroups[$iIndex]+@CRLF Next
"Enter a number between 1 and "+($iIndex-1)+" : " GetS $iIndex
$iIndex=Val($iIndex)
If $iIndex>0 AND $iIndex<UBound($sAllGroups)
	"You selected group '"+$sAllGroups[$iIndex]+@CRLF
Else
	"You made an invalid selection"+@CRLF
EndIf