endif

next

После переприсвоения элементы массива $array_base могут иметь следующий вид:

$array_base[0]= "[Тестовая сетевая база]"

$array_base[1]= "Connect=File="С:Base";"

$array_base[2]= "ID=28f15724-3c41-4753-b5a4-42bb454b8be3"

$array_base[3]= "OrderInList="

$array_base[4]= "Folder=/ Локальные базы"

$array_base[5]= "OrderInTree="

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

Сетевые базы

Составление списка сетевых баз основано на чтении данных из AD по следующему алгоритму: с помощью встроенной в KIX функции EnumGroup() просматривается список групп, в которые входит настоящий пользователь, и отфильтровываются только те из них, которые имеют заранее оговоренный префикс в названии, например, «1с8$_»:

$i=0

$Temp=""

Do

$Group = EnumGroup($i) 

$i = $i + 1     

If  instr(ucase($group), ucase("1c8$_"))<>0

…………..

EndIf

Until Len($Group) =0

MessageBox("$Temp","",0,0)

Итак, если пользователь входит в группу с указанным префиксом, то ему должна быть подключена соответствующая сетевая база данных. Параметры ее подключения находятся в свойствах группы (см. рис. 4). Поле Description содержит название базы, которое совпадает с названием раздела в файле v8ib.lst. Месторасположение и ID-базы – значение параметра notes. Обратите внимание, что параметр Description представляет собой массив элементов, а notes – строку, которую будет необходимо превратить в массив. Однако прежде всего необходимо получить доступ к Active Directory с помощью ADODB.Connection и ADODB.Command и составить запрос.

Рисунок 4. Группа безопасности

Поскольку название группы все время меняется, то в соединение с AD необходимо интегрировать функцию EnumGroup():

' определение имени текущено домена

$Domain = "LDAP://"+GetObject("LDAP://RootDSE").Get("defaultNamingContext")

$objConnection = CreateObject("ADODB.Connection")

$objCommand = CreateObject("ADODB.Command")

$objConnection.CommandTimeout = 120