$objConnection.Provider = "ADsDSOObject"

$objConnection.Open ("Active Directory Provider")

$objCommand.ActiveConnection = $objConnection

$i=ubound($array_base)

DO

    $Group = ENUMGROUP($p)    

    if instr("$Group","$meta_1c8")<>0

           $1c8_group=right($group,len($group)-instrrev($group,""))

$strADSQuery = "SELECT name,info,description FROM '" +$domain+"'  WHERE objectClass='group’ and samaccountname='"+$1c8_group+"'"

$objCommand.CommandText = $strADSQuery

    $st = $objCommand.Execute

    $st.Movefirst

Do

    $name = $St.Fields("name").Value

    $description = $St.Fields("description").Value

           $des=""

For each $element in $description

           $des=$des+$element

Next

$infos = split($St.Fields("info").Value,chr(13)+chr(10))

……………………………….

$st.MoveNext

Until $st.EOF

    endif

$p=$p+1

UNTIL Len($Group) = 0

Замечание: в приведенном примере название группы, возвращаемое функцией enumgroup() имеет вид domaingroupname, где domain – короткое имя домена. В SQL-запросе к Active Directory должно фигурировать только имя группы, т.е. необходимо отбросить префикс «domain», поэтому короткое имя группы будет выглядеть:

$1c8_group=right($group,len($group)-instrrev($group,""))