If Instr($group, $meta)<>0

      ? $group

      End if

UNTIL Len($group)=0

Значение переменной $group строится в соответствии со следующим шаблоном: DomainGroup_Name, поэтому для формирования пути к каталогу необходимо вычленить составляющую Group_Name. Листинг, формирующий полный путь к каталогу, содержащего базу 1C, следующий:

$1C_Letter_VaL = ReadProfileString($FName, $Section, “1C_Letter”)

$1C_Group=Right($group, Len(group)-InstrRev($group,””)-Len($meta))

$1C_Base=$1C_Letter_VaL+”:”+$1C_Group      ; вид переменной R:Folder_with_Base

Второй частью элемента формирующегося массива является описание группы. Чтение этого свойства можно реализовать как с помощью провайдера WinNT, так и LDAP. Приведем оба варианта. Для доступа к объекту AD необходимо либо указать имя домена в явном виде, либо создать сценарий для определения текущего домена. По понятным причинам, указывать имя домена в явном виде некорректно, поэтому создадим сценарий для определения длинного (используется провайдером LDAP) и короткого (используется провайдером WinNT) имен доменов:

Set rootDSE_ = GetObject("LDAP://RootDSE")

d_def=rootDSE_.Get("defaultNamingContext")

long_Ldap_name = "LDAP://" + d_def

short_WinNT_name= mid(d_def, instr(d_def,"=")+1,instr(d_def,",")-instr(d_def,"=")-1)

Wscript.Echo long_Ldap_name ; имеет вид «DC=domain, DC=ru»

Wscript.Echo short_ WinNT_name ; имеет вид «Domain»

Для провайдера WinNT описание группы определяется следующим образом:

$1C_Group_Descr=GetObject(“WinNT://”+short_WinNT_name+”/”+$1C_Group).Description

Для провайдера LDAP описание группы определяется так:

$strADSQuery = "SELECT description FROM  'LDAP://" + $long_Ldap_name + "' WHERE Name = "' + $1C_Group + "' and objectClass='group'"

$objADOConn = createObject("ADODB.Connection")

$objADOConn.Provider = "ADsDSOObject"

$objADoConn.Open ("Active Directory Provider")

$objADOCommand = CreateObject("ADODB.Command")