Something like...

 Code:
$groups = fnInGroup()

For Each $G in $Groups
   $G ?
Next



Get $

Function fnInGroup(Optional $bComputer)
    Dim $objSys,$objTarget,$aMemberOf,$sMemberOf,$i
    $objSys = CreateObject("ADSystemInfo")
    $objTarget = GetObject("LDAP://"+Iif($bComputer,$objSys.ComputerName,$objSys.UserName))
    $aMemberOf = $objTarget.GetEx("memberOf")
    Dim $aGroups[UBound($aMemberOf)]
    For Each $sMemberOf in $aMemberOf
      $aGroups[$i] = Split(Split($sMemberOf,"CN=")[1],",")[0]
      $i = $i + 1
    Next
     $fnInGroup = $aGroups
EndFunction