Добавление баз 1с скриптом vbs

В сети есть базы 1с7.7, 8.1, 8.2 как sql, так и файловые. Необходимо в сети с целой кучей пользователей и доменом, добавить необходимый список баз сразу всем.
На сервер терминалов, где установлен клиент 1с8.2 добавляем базы которые нам нужны и выходим из 1с. Все добавленный базы сохранятся в файл ibases.v8i, который вы найдете в

%userprofile%\AppData\Roaming\1C\1CEStart\

Далее на контроллере домена в logon скрипте добавляем запуск батника.
У меня logon (script.vbs) выглядит так:

Option Explicit
On Error Resume Next

Dim WshShell, WshNetwork

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objFSO=CreateObject("Scripting.FileSystemObject")

WshNetwork.RemoveNetworkDrive "P:", true, true
WshNetwork.MapNetworkDrive "P:", "\\file\pub$", true

'===============Базы 1С
Set oExec = WSHShell.Run("\\ИМЯ_КОНТРОЛЛЕРА_ДОМЕНА\NETLOGON\bases.bat")
WScript.quit

Содержимое батника (bases.bat) для выполнения файла реестра и подключения баз 1с8:

@echo off
start /min /wait regedit /s "\\ИМЯ_КОНТРОЛЛЕРА_ДОМЕНА\NETLOGON\bases.reg"
xcopy "\\ИМЯ_КОНТРОЛЛЕРА_ДОМЕНА\NETLOGON\ibases.v8i" "%userprofile%\AppData\Roaming\1C\1CEStart\" /c /y /q

Содержимое файлика реестра (bases.reg) для подключения баз 1с 7.7

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles]
"\\\\НАЗВАНИЕ_СЕРВЕРА\\ПУСТЬ_ДО_БАЗЫ\\"="НАЗВАНИЕ_БАЗЫ"

В итоге на контроллере домена в папке
\\ИМЯ_КОНТРОЛЛЕРА_ДОМЕНА\NETLOGON
мы получаем:

Share

You may also like...

1 Response

  1. Viveda:

    Спасибо за статью.

    %userprofile%\AppData\Roaming\1C\1CEStart\ — это для семерки

    %appdata%\1C\1CEStart\ — более универсально IMHO.

    WBRGDS, Viveda 

Добавить комментарий для Viveda Отменить ответ

Ваш адрес email не будет опубликован. Обязательные поля помечены *