Dim $grpWhat, $grpFrom, $grpfilter, $grpResult, $objPackDesc
Dim $j, $packDesc

$grpWhat = "cn", "description"
$grpFrom = "LDAP://" + $CmpGrpPath
$grpfilter = "(&(objectCategory=group)(cn=Pack*))"


$grpResult = fnLDAPQuery($grpWhat,$grpFrom,$grpfilter)

For $j = 0 To Ubound($grpResult)

    $objPackDesc = GetObject('LDAP://CN="' + $grpResult[$j,0] + '",OU="Groups Computers",OU=LIVNET,DC=liv,DC=se')
    $packDesc = $objPackDesc.description

    If $packDesc
      AT(5,1) ? $grpResult[$j,0]
      AT(6,1) ? $packDesc
    Else
      AT(5,1) ? $grpResult[$j,0]
    Endif
Next


AT(8,1) ? "Done..."
Get $x
Exit



Function fnLDAPQuery($What,Optional $From,Optional $Filter,Optional $OrderBy,Optional $Scope,Optional $User,Optional $Pswd)
    
    Dim $oCon,$oCMD,$oRS,$sQ,$aR,$C,$R
    
    $sQ="<"+Iif($From="","LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext"),
        $From)+">;"+$Filter+";"+Iif(VarType($What)>8192,Join($What,','),$What)+";"+
        Iif($Scope<>"base" AND $Scope<>"onelevel","subtree",$Scope)
    
    $oCon=CreateObject("ADODB.Connection")
    $oCon.Provider="ADsDSOObject"
    $oCon.Properties("Encrypt Password").Value=1
    $oCon.Properties("ADSI Flag").Value=1
    If $User AND $Pswd
        $oCon.Properties("User ID").Value=$User
        $oCon.Properties("Password").Value=$Pswd
    EndIf
    $oCon.Open("Active Directory Provider")
     
    $oCMD=CreateObject("ADODB.Command")
    $oCMD.ActiveConnection=$oCon
    $oCMD.CommandText=$sQ
    $oCMD.Properties("Page Size").Value=1000
    $oCMD.Properties("Timeout").Value=30
    $oCMD.Properties("Cache Results").Value=0
    
    If InStr($OrderBy,"distinguishedName")
        $oRS=CreateObject("ADODB.Recordset")
        $oRS.CursorLocation=3
        $oRS.Sort=$OrderBy
        $oRS.Open($sQ,$oCon,0,1,1)
    Else
        If $OrderBy
            $oCMD.Properties("Sort On").Value=$OrderBy
        EndIf
        $oRS=$oCMD.Execute
    EndIf
    If @ERROR Exit @ERROR EndIf
    If $oRS.BOF AND $oRS.EOF Exit @ERROR EndIf
    
    $aR = $oRS.GetRows()
    Dim $aFR[Ubound($aR,2),Ubound($aR,1)]
    For $R=0 to Ubound($aR,2)
        For $C=0 to Ubound($aR,1)
            $aFR[$R,$C]=$aR[$C,$R]
        Next
    Next
    
    $fnLDAPQuery=$aFR
EndFunction

 ; == Return the Name, AdsPath and members of all groups =========
 $aAttributes = "cn", "description" ; "Name", "AdsPath", "member"
 $sADsPath = "LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")
 $strFilter = "(&(objectClass=group)(cn=Pack*))"

 $aResults = fnLDAPQuery($aAttributes,$sADsPath,$strFilter)
 @ERROR " | " @SERROR ?

 For $c = 0 to Ubound($aResults)
     For $r = 0 to UBound($aResults,2)
         "=============================" ?
         If VarType($aResults[$c,$r])>8192
            "  Description:" ?
            For Each $rr in $aResults[$c,$r]
                "   " $rr ?
            Next
         Else
            $aResults[$c,$r] ?
         EndIf
     Next
     ?
 Next