code:

---

$acctDomain = "<put your account domain here>"

$groupMembership = udfInDomainGroup($AcctDomain)

$domainsize=UBOUND($groupMembership)

? ? "********* Counting Back From Returned Array*********"
? "Total Number of Groups: " + $domainsize
FOR each $member in $groupMembership
	? "Member of :" $member
NEXT


FUNCTION udfInDomainGroup($AcctDomain)

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;+Obtain User Domain Group Membership in an array						 +
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

? "Get Global Group memberships..."
;$text = "Enumerating Group Membership"
;addLogText($Text)

Dim $udfInDomainGroup[1]
$Index = 0
$domGroupCount = 0
? "Account Domain:" + $AcctDomain
DO
	$Group = EnumGroup($Index)
	$splitGroup = Split($Group,"\")
	IF UBOUND ($splitGroup) = 1
		IF $splitGroup[0] = $AcctDomain
			;? $splitGroup[1]
			$udfInDomainGroup[$domGroupCount] = $splitGroup[1]
			$domGroupCount = $domGroupCount + 1
			;? $udfInDomainGroup[($domGroupCount - 1)]
			REDIM PRESERVE $udfInDomainGroup[$domGroupCount]
			;? $udfInDomainGroup[$domGroupCount - 1]
		ENDIF
	ENDIF
	$Index = $Index + 1
UNTIL LEN($Group) = 0
$domGroupCount = $domGroupCount - 1

? ? "********* Counting Back From Array*********"
? "Total Number of Groups: " + $domGroupCount ?

For each $member in $udfInDomainGroup
	?  " Member of :" + $member
next

ENDFUNCTION

---