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

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

Для работы скрипта необходимо зарегистрировать библиотеку 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 & «salarySalary_» & Date() & «.dt»»»
    CmdLine = «»»C:Program Files (x86)1cv828.2.17.143in1cv8.exe»» DESIGNER /S «»127.0.0.1zarp»» /N «»Алексей»» /P «»tystik1233″» /DUMPIB » & FileNameSalary
    WshShell.Run CmdLine, 1, True    
    ‘MSgBox CmdLine
    
    ‘копирование бухгалтерии
    FileNameAcc = Folder & «accAcc_» & Date() & «.dt»»»
    
    CmdLine = «»»C:Program Files (x86)1cv828.2.17.143in1cv8.exe»» DESIGNER /S «»127.0.0.1uhg»» /N «»Алексей»» /P «»tystik1233″» /DuMPIB » & FileNameAcc
    WshShell.Run CmdLine, 1, True    
    ‘MsgBox CmdLine

End Sub

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