Dim $rc
$rc = SetOption("Explicit","ON")
$rc = SetOption("NoVarsInStrings","ON")
 
If ComputerInGroupNested("Asset Management Exempt")
   ? "Computer is a member of the Asset Management Exempt group"
EndIf
 
If ComputerInGroupNested("Windows 7 Pilot Workstations")
   ? "Computer is a member of the Windows 7 Pilot Workstations group"
EndIf
 
 
 
Function ComputerInGroupNested($strGroup)
	Dim $bInGroup 
	Dim $objSysInfo, $objComputer, $colGroups, $objGroup
	Dim $DN
   
	$ComputerInGroupNested = 0
	$bInGroup = 0
	$strGroup = Trim($strGroup)   	
 
	$objSysInfo = CreateObject("ADSystemInfo")
	If @ERROR
		Exit @ERROR
	EndIf
   
	$DN = $objSysInfo.computername
   
	If $DN <> ""
		$objComputer=GetObject("LDAP://"+$DN) 
		If $objComputer
			; Get the first level groups the computer is a member of 
			$colGroups = $objComputer.Groups
			For Each $objGroup in $colGroups
				If Trim($objGroup.CN) = $strGroup
					$bInGroup = 1
				EndIf
				If $bInGroup <> 1
					; Recursively check membership of each group 
					$bInGroup = GetNested($objGroup,$strGroup,0)
				EndIf
			Next
		EndIf
	Else
		Exit @ERROR
	EndIf
	$ComputerInGroupNested = $bInGroup
EndFunction
 
Function GetNested($objGroup, $CheckGroup, $nIterationCount)
	Dim $colMembers, $strMember, $objNestedGroup, $x, $strPath
	Dim $nMaxIterations
   
	$GetNested = 0
	
	; MaxIterations exists because I discovered certain siutations where it was possible to  
	; infinitely nest two groups into each other casuing an infinite loop.  This allows the script  
	; to quit after 30 levels of nesting. 
	$nMaxIterations = 30
    
	; Get groups that group is a member of 
	$colMembers = $objGroup.GetEx("memberOf")
    
	; Traverse group array 
	For Each $strMember in $colMembers
		$strPath = "LDAP://" + Trim($strMember)
		$objNestedGroup = GetObject($strPath)
 
		If Trim($objNestedGroup.CN) = $CheckGroup
			$GetNested = 1
		EndIf
 
		If $GetNested <> 1		
			; See if that group is a member of any groups, recurse infinitely 
			If $nIterationCount < $nMaxIterations
				$GetNested = GetNested($objNestedGroup,$CheckGroup,$nIterationCount + 1)
			Else
				Return
			EndIf	
		EndIf
	Next
EndFunction