Данные, содержащиеся в массиве $infos необходимо преобразовать и добавить их в конец массива $array_base. При этом добавляемые в него элементы должны соответствовать ранее описанному шаблону для сетевых баз:

$i=ubound($array_base)

DO

…

$array_base[$i]="["+$des+"]"

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

$array_base[$i+1]= "Connect="+$infos[0]

$array_base[$i+2]= $infos[1]

$array_base[$i+3]= "OrderInList="

$array_base[$i+4]= $infos[2]

$array_base[$i+5]= "OrderInTree="

$i=$i+6

…

Формирование файловой структуры

Файловая структура формируется внутри каталога «Documents and Settings\%username%Application Data1C1Cv8». Расположение данного каталога на рабочей станции не фиксировано, поэтому для каждого пользователя путь необходимо определять индивидуально с помощью функции:

$path_to_base=CreateObject("WScript.Shell").SpecialFolders(5)+"1C1Cv8"

Определив ID сетевой базы, в том же цикле Do..Loop (см. листинг скрипта на сайте www.samag.ru в разделе «Исходный код»), необходимо создать соответствующую базе файловую структуру.

В каталоге «Documents and Settings\%username%Application Data1C1Cv8» для каждой базы необходимо создать папку, название которой совпадает с ID этой базы, а в нем файл usr.def в кодировке UTF-8 со следующим содержанием: {«У Вас нет доступа. Обратитесь к системному администратору»}. Это сообщение будет появляться в том случае, если у пользователя нет прав доступа к данной базе данных 1С.

…

$id_dir_name=$path_to_base+right( $infos[1],len( $infos[1])-3)

…

md $id_dir_name ; создание каталога

;  создание файла def.usr

$FSO = CreateObject("Scripting.FileSystemObject").GetFile($id_dir_name+"def.usr")

if @error=0

$FSO.Delete

endif

$FSO.close

$Stream = CreateObject("ADODB.Stream")