gifts2017

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

Опубликовал Алексей Тустик (tystik) в раздел Администрирование - Архивирование (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

 

 

См. также

Подписаться Добавить вознаграждение

Комментарии

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