DumpPath = "M:\BackUp\1CArchive"
  FileName = "BackUpFileBase" ' Название бэкапа базы
  ServerName = "Main"  ' Название сервера 1С Предприятия
  InfoBaseName = "rm" ' Имя архивируемой базы
  ClasterPortNumber = 1541

  ' Эти данные лучше в скрипте не светить, а использовать Windows аунтификацию
  ' Имя и Пароль пользователя назначенного для архивирования
  InfoBasesAdminName = "Odmin"
  InfoBasesAdminPass = "Nfkgfqjg"

  ' Имя и Пароль Администратора кластера
  ClasterAdminName = "Odmin"
  ClasterAdminPass = "Nfkgfqjg"

  LockPermissionCode = "12345" ' Код блокировки базы
  LockMessageText = vbCrLf + "БАЗА ЗАКРЫТА НА СОЗДАНИЕ РЕЗЕРВНОЙ КОПИИ" + vbCrLf + "Администратор - БАЗЫ"
  LockPermissionCode = "12345" ' Код блокировки базы

  ClasterAdminName = "Odmin"
  ClasterAdminPass = "Nfkgfqjg"

  FindInfoBase = False 'Флаг, что ИБ найдена

  Set WshShell = CreateObject("WScript.Shell")
  PrgDirx86 = WshShell.RegRead("HKEY_CLASSES_ROOT\CLSID\{b3a7d9db-3cba-47f4-b80a-5dda79d8925a}\LocalServer32\")

  strNow = Now()
  FullPathName = DumpPath & "\" & _
             Right("0" & Day(strNow), 2) & "_" & Right("0" & Month(strNow), 2) & "_" + Right(Year(strNow), 2) & "_" & _
             Right("0" & Hour(strNow), 2) & "_" & Right("0" & Minute(strNow), 2) & "_" + Right(Second(strNow), 2) & "_" & _
             FileName & ".dt"

  If InStr(FullPathName, " ") <> 0 Then
    FullPathName = Chr(34) + FullPathName + Chr(34)
  End If
  
  Set ComConnector = CreateObject("v81.COMConnector")
  Set ServerAgent = ComConnector.ConnectAgent(ServerName)
  
  ' Получим массив кластеров сервера у агента сервера
  Clasters = ServerAgent.GetClusters()
  
  ' Найдем необходимый нам кластер
  For Each Claster In Clasters
    If Claster.MainPort = ClasterPortNumber Then
      ServerAgent.Authenticate Claster, ClasterAdminName, ClasterAdminPass
      ' Получаем список рабочих процессов
      WorkingProcesses = ServerAgent.GetWorkingProcesses(Claster)
      For Each WorkingProcess In WorkingProcesses
        If WorkingProcess.Running =  1  Then
          ' Для каждого рабочего процесса создаем соединение с рабочим процессом
          Set connecttoworkprocess = ComConnector.ConnectWorkingProcess("tcp://" + WorkingProcess.HostName + ":" + CStr(WorkingProcess.MainPort))
          connecttoworkprocess.AuthenticateAdmin ClasterAdminName, ClasterAdminPass
          connecttoworkprocess.AddAuthentication InfoBasesAdminName, InfoBasesAdminPass
          If Not FindInfoBase Then
            ' Получаем список ИБ рабочего процесса
            InfoBases = connecttoworkprocess.GetInfoBases()
            For Each InfoBase In InfoBases
              ' Ищем нужную базу
              If UCase(InfoBase.Name) = UCase(InfoBaseName) Then
                FindInfoBase = True
                Exit For
              End If
            Next

            If Not FindInfoBase Then ' Не нашли нужную базу
              Exit For
            End If

            ' Устанавливаем запрет на подключение новых соединений
            InfoBase.ConnectDenied = True
            InfoBase.DeniedFrom = CStr(Now())
            InfoBase.DeniedTo = CStr(Now() + 1 / 24 * 3)
            InfoBase.DeniedMessage = LockMessageText
            InfoBase.PermissionCode = LockPermissionCode

            connecttoworkprocess.UpdateInfoBase (InfoBase)

          End If

          If FindInfoBase Then
            ' Получаем массив соединений с ИБ
            Connections = connecttoworkprocess.GetInfoBaseConnections(InfoBase)
            For Each Connection In Connections
              ' Разрываем Connections с ИБ
              If Connection.AppId <> "SrvrConsole" Then
                connecttoworkprocess.Disconnect (Connection)
              End If
            Next

            ' Запускаем архивацию
            LineExe = """" + PrgDirx86 + """ CONFIG /S" + ServerName + "\" + InfoBaseName + _
                      " /N" + InfoBasesAdminName + " /P" + InfoBasesAdminPass + _
                      " /UC" + LockPermissionCode + " /DisableStartupMessages /DumpIB" + FullPathName

            WshShell.Run LineExe,  5 , True

            ' Отключаем блокировку базы
            InfoBase.ConnectDenied = True
            connecttoworkprocess.UpdateInfoBase (InfoBase)

          End If
        End If
      Next
    End If
  Next

  ComConnector = Null
  ServerAgent = Null
  Clasters = Null
  WorkingProcesses = Null
  connecttoworkprocess = Null
  InfoBases = Null
  InfoBase = Null
  Connections = Null