$users = groupmembers(@LDOMAIN, "Some goup" ,1)

For Each $user in $users
	? $user
	Sleep 0.2
Next

;Function Groupmembers()
;NAME        GroupMembers
;
;ACTION      Returns an array of all group members of the specified group
;
;SYNTAX      GroupMembers(Target, Group, [FLAG])
;
;PARAMETERS  Target
;               The Domain name or Workstation to work with.  For faster workstation 
;               execution, include the Domain Name that the workstation is a meber of.
;
;               "Kixtart/beanbag" would be working with the workstation Beanbag in the 
;               Kixtart domain
;
;            Group
;               The Group you want to query
;
;            [FLAGS]
;               To use the flags options add the numbers of the desired flags toghthers and
;               Use that number in the flag field.
;
;                  Filter :(only one filter flag at a time please)
;                     1 = all
;                     2 = Users only
;                     4 = Groups only
;
;                  ADSI Information(return ADSI information "pick only one")
;                     8  = ADSPath field
;                     16 = ADSI Object Handle
;
;RETURNS     an array containing , if the ADSPath option is used the ADSPath 
;            will also be returned |.
;
;REMARKS     ADSI com object must be installed.
;
;EXAMPLES    ;this return all members of the Domain Admins group in the kixtart domain.
;            $members = groupmembers("kixtart","Domain admins")
;
;            ;this will will return all groups in the local administrators group on 
;            ;the Workstation beanbad in the kixtart domain.  Also the 
;            $groups = groupmembers("kixtart/beanbag","Administratoos","group")
Function Groupmembers($target, $group, optional $flag)
	Dim $temparray[8], $member, $i, $chunk, $flag, $ADSIFlag, $filterFlag
	$chunk = UBound($temparray)
	$flag = Val($flag)
	$i = 0
	$group = GetObject("WinNT://" + $target + "/" + $group)
		
	If VarType($group) <> 9
		Exit(@error)
	EndIf
	Select
		Case $flag & 1
			$filterflag = 1
		Case $flag & 2
			$filterflag = 2
		Case $flag & 4
			$filterflag = 4
		Case 1
			$filterflag = 1
	EndSelect
	Select
		Case $flag & 8
			$ADSIFlag = 8
		Case $flag & 16
			$ADSIFlag = 16
	EndSelect
	For Each $member in $group.members
		Select
			Case $filterflag = 2 And $member.class = "user"
				If SubStr($member.name, Len($member.name), 1) <> "$"
					$temparray[$i] = $member.name
					Select
						Case $adsiflag = 8
							$temparray[$i] = $member.adspath
						Case $adsiflag = 16
							$temparray[$i] = $member
					EndSelect
					$i = $i + 1
				EndIf
			Case $filterflag = 4 And $member.class = "Group"
				If SubStr($member.name, Len($member.name), 1) <> "$"
					$temparray[$i] = $member.name
					Select
						Case $adsiflag = 8
							$temparray[$i] = $member.adspath
						Case $adsiflag = 16
							$temparray[$i] = $member
					EndSelect
					$i = $i + 1
				EndIf
			Case $filterflag = 1
				If SubStr($member.name, Len($member.name), 1) <> "$"
					$temparray[$i] = $member.name
					Select
						Case $adsiflag = 8
							$temparray[$i] = $member.adspath
						Case $adsiflag = 16
							$temparray[$i] = $member
					EndSelect
					$i = $i + 1
				EndIf
			Case $filterflag
				;bit bucket
		EndSelect
		If $i = UBound($temparray)
			ReDim preserve $temparray[UBound($temparray) + $chunk]
		EndIf
	Next
	If $i <> 0
		ReDim preserve $temparray[$i - 1]
		$groupmembers = $temparray
	EndIf
EndFunction

Dim $strGroup, $objGroup, $objUser
$strGroup = "LDAP://CN=MyGroup,OU=MySecurityGroups,DC=MyDomain,DC=local"
$objGroup = GetObject($strGroup)

For Each $objUser in $objGroup.Members
  ? $objUser.CN
Next