$groups = fnInGroup(@WKSTA)

For Each $Group in $Groups
   IF $Group = "PARSTDCOMPUTERS"
	?"Do Stuff"
   ENDIF
   IF $Group = "BUSINESS_OFFICE_PRINTER_COMPUTERS"
	?"Do More stuff"
   ENDIF	

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