code:

---

CLS
BREAK ON 

FUNCTION checkingroup ($grouplist)
	cls

	AT(2,2) "Groups evaluated: "

	FOR EACH $group IN $grouplist
		"'" + $group + "' "
	NEXT

	at(5,2) $note
	?

	if INGROUP($grouplist,0) = 1
		? "In at least one of the groups" 
	endif

	if INGROUP($grouplist,0) = 0
		? "Not in any of the groups checked"
	endif

	if INGROUP($grouplist,1) = 1
		? "in all groups checked"
	endif

	if INGROUP($grouplist,1) = 0
		? "not in all groups checked"
	endif

	?
	? "Press any key to continue"
	get $x
ENDFUNCTION

$grouplist = "domain admins","everyone"	; 2 groups I AM a member of
$note = "Expected response: 'in at least one' and 'in all'"
checkingroup($grouplist)


$grouplist = "domain admins2","everyone"	; I'm not in 'domain admins2'
$note = "Expect response 'in at least one' and 'NOT in all'"
checkingroup($grouplist)


$grouplist = "cricket fans","soccer fans"	; I'm not in either :-)
$note = "Expect response 'not in any' and 'NOT in all'"
checkingroup($grouplist)

:end
  

---