Скрипт - выгонялка пользователей + резервная копия базы.

26.02.13

База данных - Архивирование (backup)

В Клиент-серверном режиме работы базы часто возникает необходимость выгонять пользователей чтобы сделать обновление, резервные копии и т.п. Для ленивых, которым неудобно всех выгонять "руками" или ждать окончания рабочего дня, предлагается простой скрипт, который всё сделает за вас.

Скрипт работает очень просто. За вас автоматически авторизуется на кластере серверов и  отключает всех пользователей базы. После чего делается бэкап данных.

Для работы скрипта необходимо зарегистрировать библиотеку ComCntr.dll (Для инициализации объекта V82.Comconnector). Для Windows server 2008 необходимо зарегистрировать COM+ компоненту на основе этой библиотеки.

Скрипт рекомендуется повесить в рассписание сервера.

Ниже приводится пример скрипта (.VBS) для двух баз - зарплаты и бухгалтерии.

'Скопируйте этот скрипт в текстовый файл txt и поменяйте расширение на VBS

'Скрипт выгодняет принудительно пользователей из базы данных посредством подключения к кластеру серверов
'После того как будут выгнаны все пользователи, делается резервное копирование в папку "D:\1c_backup\"
'Сохраненные файлы датируются текущей датой, неактуальные копии НЕ УДАЛЯЮТСЯ

'Процедура закрытия соединений. Создастся служебные пользователи администратора COM.По завершении процедуры они убьются сами
Sub CloseConnection()
    Dim Connector, Agent, Cluster, WorkProcess, WorkProcessConnection, Base, Connections, i, CurrentConnection
    Dim BaseList

    'Идентификаторы баз в кластере серверов
    BaseName = "zarp"
    BaseNameAcc = "buhg"

    Set Connector = CreateObject("V82.COMConnector")

    'Селект текущего кластера серверов
    Set Agent = Connector.ConnectAgent("127.0.0.1")
    Set Cluster = Agent.GetClusters()(0)


    Agent.Authenticate Cluster, "aleksei", "7344"

    'Получение рабочего процесса кластера
    For Each WorkProcess In Agent.GetWorkingProcesses(Cluster)

            ConnectString = WorkProcess.HostName & ":" & WorkProcess.MainPort

            Set WorkProcessConnection = Connector.ConnectWorkingProcess(ConnectString)

            'Установка аутентификации в базах. В бухгалтерии и зарплате создан логин "Алексей"
            WorkProcessConnection.AddAuthentication "Алексей", "tystik1233"

           'Получение списков баз на сервере    
            BaseList = WorkProcessConnection.GetInfoBases()

            'Отключение пользователей из Зарплаты
            For i = LBound(BaseList) To UBound(BaseList)
                If BaseList(i).Name = BaseName Then
                        Set Base = BaseList(i)

                        'Получение соединений с базой, отрубаем всех ктоме COM-Администраторов, он вырубится когда закончится скрипт        
                        Connections = WorkProcessConnection.GetInfoBaseConnections(Base)

                        For j = LBound(Connections) To UBound(Connections)
                            Set CurrentConnection = Connections(j)
                            If CurrentConnection.AppID <> "COMConsole" Then
                         'MSGBOX "Пользователь зарплаты : " & CurrentConnection.UserName
                         WorkProcessConnection.Disconnect CurrentConnection
                            End If
                        Next

                   End If
 
                'Отключение пользователей из бухгалтерии
                If BaseList(i).Name = BaseNameAcc Then
                        Set Base = BaseList(i)

                    'Получение соединений с базой, отрубаем всех ктоме COM-Администраторов, он вырубится когда закончится скрипт
                        Connections = WorkProcessConnection.GetInfoBaseConnections(Base)

                        For l = LBound(Connections) To UBound(Connections)
                            Set CurrentConnection = Connections(l)
                            If CurrentConnection.AppID <> "COMConsole" Then
                         'MSGBOX "Пользователь бухгалтерии : " & CurrentConnection.UserName
                         WorkProcessConnection.Disconnect CurrentConnection
                            End If
                        Next
                End If
            Next    

    Next
End Sub

'Резервная копия, создается файл *.dt по формату ПрефиксБазы_+ТекущаяДата.dt
Sub BackUp()

    'Папка архив
    Dim Folder
    Dim FileNameSalary
    Dim FileNameAcc
    Dim WSShell
    
    Folder = """D:\1c_backup\"

    'Создание шела для выполнения команд windows
    Set WshShell = Wscript.CreateObject("Wscript.Shell")

    'Копирование зарплаты
    FileNAmeSalary = Folder & "salary\Salary_" & Date() & ".dt"""
    CmdLine = """C:\Program Files (x86)\1cv82\8.2.17.143\bin\1cv8.exe"" DESIGNER /S ""127.0.0.1\zarp"" /N ""Алексей"" /P ""tystik1233"" /DUMPIB " & FileNameSalary
    WshShell.Run CmdLine, 1, True    
    'MSgBox CmdLine
    
    'копирование бухгалтерии
    FileNameAcc = Folder & "acc\Acc_" & Date() & ".dt"""
    
    CmdLine = """C:\Program Files (x86)\1cv82\8.2.17.143\bin\1cv8.exe"" DESIGNER /S ""127.0.0.1\buhg"" /N ""Алексей"" /P ""tystik1233"" /DuMPIB " & FileNameAcc
    WshShell.Run CmdLine, 1, True    
    'MsgBox CmdLine

End Sub

'# Основной модуль работы программы, сначала выгоняются юзеры, потом делаются бэкапы
CloseConnection
BackUp

 

 

См. также

Журнал изменений с восстановлением состояния ссылочных объектов и архивацией по HTTP / COM (расширение + конфигурация, 8.3.14+, ЛЮБАЯ конфигурация)

Архивирование (backup) Журнал регистрации Поиск данных Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 1С:Управление торговлей 11 Платные (руб)

База данных «сама» меняет данные в документах/справочниках? Тогда данный журнал изменений для Вас! Практически не влияет на скорость записи объектов за счет быстрого алгоритма! Скорость работы почти в 2 раза выше типового механизма "История изменений"! Позволяет следить за изменениями и удалением в любых ссылочных объектах конфигурации, с возможностью архивации по HTTP(!) или COM, и сверткой данных. А так же, может восстановить состояние реквизитов (значения) до момента изменения или удаления объекта из базы. Есть ДЕМО-база где можно самостоятельно протестировать часть функционала! Работает на любых платформах выше 8.3.14+ и любых конфигурациях! Версия 3.1 от 24.08.2023!

19200 руб.

15.05.2017    42521    10    24    

38

BackUPv8 - система резервного копирования баз 1С

Архивирование (backup) Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Автоматическое создание копий файловых и серверных информационных баз 1С Предприятие 8 и размещение копий в облаке Яндекс.Диск, локальном или сетевом ресурсе.

1200 руб.

03.09.2014    14732    13    6    

18

Резервное копирование журнала транзакций, наконец-то!

Архивирование (backup) Администрирование СУБД Россия Бесплатно (free)

Постараюсь объяснить, зачем нужно резервное копирование именно журнала транзакций, а не только базы данных, и почему я словно сбросил груз, настроив его - как, покажу, естественно. Кстати, будут скрипты T-SQL (с подробными комментариями) - отличный способ сделать администрирование базы более уютным.

04.12.2023    5867    n_mezentsev    15    

24

Резервное копирование и восстановление 1С баз на PostgreSQL в Windows с помощью pgAdmin, bat-файлов и планировщика

Архивирование (backup) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В данной инструкции будет описано, как с помощью pgAdmin, bat-файлов и планировщика заданий Windows организовать резервное копирование, восстановление и хранение копий баз данных.

07.10.2022    19820    sapervodichka    36    

142

Архивирование базы в dt и дамп postgres

Архивирование (backup) Платформа 1С v8.3 Конфигурации 1cv8 Россия Абонемент ($m)

Захотелось клиентам выгрузку архива баз, и выгрузку в дт, готовые скрипты с сети не заработали. Может, кому-то поможет. Релиз 8.3.18.1741.

1 стартмани

25.08.2022    4716    2    Gnom-Gluck    6    

6

Утилита копирования баз данных 1С

Архивирование (backup) Платформа 1С v8.3 Абонемент ($m)

Небольшая утилита для копирования файловых баз данных 1С.

1 стартмани

02.06.2022    4236    3    Giblarium    12    

5
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. bforce 481 26.02.13 11:33 Сейчас в теме
Предлагаю разукрасить код, а то грустно смотрится 8-)
http://s-c.me/scme.aspx
2. Borometr 11 27.02.13 06:05 Сейчас в теме
Много раз слышал фразу, что "выгружать клиент-серверную базу нужно средствами СУБД". Честно говоря не понимал почему. Недавно выгрузил клиент-серверную ЗБУ через конфигуратор, загрузил её во вновь созданную базу уже файловую. Смотрю, а объекты то не все в базе и есть некие отличия от оригинала базы. Почему так получилось, ума не приложу.
3. ITEkb 27.02.13 08:22 Сейчас в теме
Еще бы готовый комплект с инструкцией.. а то в теории не сразу все понятно. Пришлось еще описания искать.
Но все равно спасибо.
4. rus128 2 27.02.13 13:09 Сейчас в теме
огромное количество ошибок.
читается с трудом.
5. Al-X 27.02.13 14:12 Сейчас в теме
Да, хотелось бы готовый скрипт. А то простое копирование, как-то не совсем работает.
6. gala2009 30 28.02.13 19:48 Сейчас в теме
не проверяла, но скрипт нужный
7. 1cmax 152 03.03.13 20:41 Сейчас в теме
куча всякого добра на эту тему давно написано
8. DERL 25.03.13 14:54 Сейчас в теме
Спасибо! Выгонялка очень понадобилась. До этого всегда пользовался Egida Backup, но она очень часто говорит что не нашла бэкап файл во временной директории, а другие архиваторщики не умеют выгонять пользователей или делают это не за бесплатно )).
Подкорректировал ваш скрипт и все работает.
9. 1_C 25.04.13 11:53 Сейчас в теме
Не выгоняет пользователей под тонким клиентом ,как решить эту проблему??
10. DERL 11.09.13 11:42 Сейчас в теме
(9) я для этого использую метод TerminateSession агента
вот пример:

Dim objFSO
Dim objFile
Dim LogFileName
Dim Result

Sub CloseConnection()
Dim Connector, Agent, Cluster, WorkProcess, WorkProcessConnection, Base, Connections, i, CurrentConnection
Dim BaseList


'Идентификаторы баз в кластере серверов
BaseName = "Base8"

Set Connector = CreateObject("V82.COMConnector")

'Селект текущего кластера серверов
Set Agent = Connector.ConnectAgent("MyServer")
Set Cluster = Agent.GetClusters()(0)


Agent.Authenticate Cluster, "Admin", "pass1"

MassBase = Agent.GetInfoBases(Cluster)

For i = LBound(MassBase) To UBound(MassBase)
Set Base = MassBase(i)
'MsgBox Base.Name
If Base.Name = "Base1CV8" Then

Sessions = Agent.GetInfoBaseSessions(Cluster, Base)
For k = LBound(Sessions) To UBound(Sessions)

Set ThisSession = Sessions(k)

If ThisSession.AppID <> "COMConsole" Then
Agent.TerminateSession Cluster, ThisSession
'MsgBox "User: " & ThisSession.UserName & " App ID: " + ThisSession.AppID

End If
Next

Exit For
End If
Next

End Sub
adapter; smirnovserg.s@gmail.com; +2 Ответить
Оставьте свое сообщение