DumpPath = "D:\BackUp2Work\New"

  FileName = "work2" ' Название бэкапа базы
  ServerName = "Server1C:1541"  ' Название сервера 1С Предприятия
  ServerName = "Server1C:1641"  ' Название сервера 1С Предприятия
  InfoBaseName = "work_base_82" ' Имя архивируемой базы
  ClasterPortNumber = 1641

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

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

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

  ClasterAdminName = ""
  ClasterAdminPass = ""

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

  Set WshShell = CreateObject("WScript.Shell")
PrgDirx86 = WshShell.RegRead("HKEY_CLASSES_ROOT\CLSID\{b3a7d9db-3cba-47f4-b80a-5dda79d8925a}\LocalServer32\")
' PrgDirx86 = WshShell.RegRead("HKEY_CLASSES_ROOT\CLSID\{5CD98F13-1050-4b43-84F2-33AD97CFC287}\LocalServer32\")
  strNow = Now()

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

  If InStr(FullPathName, " ") <> 0 Then
   FullPathName = FullPathName
   'FullPathName = Chr(34) + FullPathName + Chr(34)
   'FullPathName2 = Chr(34) + FullPathName2 + Chr(34)
  End If
  
  Set ComConnector = CreateObject("v82.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 * 0.25)
            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" + ServerName2 + "\" + 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

1с не рекомендует делать резервное копирование выгрузкой в дт

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

Бугагашеньки)))))))

(1) Мало ли чо... Вот Минздрав не рекомендует курить...

(0) бэкапь сценарием SQL будь мужиком )

Только не кидайтесь тапками). Ситуация следующая: была 1с 8.1, обновили до 8.2, но 8.1 тоже функционирует на одном и том же сервере.

(2) Та это тестовый сервер, нечего бояться :)

1с не рекомендует делать резервное копирование выгрузкой в дт, ага, читали уже. нужна dt  именно, потому что часто просят бухи, тобы згрузить ее локально и поэкспериментировать

(7) Так где твой вопрос-то?

где ошибка в скрипте?

v8: Бэкап 1с82 серверный вариант в *.dt  скриптом  взято отсюда, подставлены свои значения

(9) Какой молодец :)
Вывалил портянку, а нам дебажить её?))

Я для каждой ИБ отдельный батник сделал и не парюсь.

(9) ну вы нам хотя бы текст ошибки приведите

нужна копия только 8.2, 8.1 просто как архивную просматривают

Set ServerAgent = ComConnector.ConnectAgent(ServerName)  на эту  строку ругается

(15) при установке сервера в опциях установки можно выбрать COM-соединение или сделай: regsvr32.exe C:\Program Files\1cv82\8.2.хх.ххх\bin\comcntr.dll

Сервер недоступен ( не отвечает (завершается аварийно или порт занят другим приложением ) источник v82.COMConnector.1

Спасибо, попробую. Не было инета, последнее сообщение написано без учета  
при установке сервера в опциях установки можно выбрать COM-соединение или сделай: regsvr32.exe C:\Program Files\1cv82\8.2.хх.ххх\bin\comcntr.dll

не удалось загрузить модуль C:\Program  Проверьте, что двоичный файл храниться на указанном пути или запустите отладку, что бы диагностировать проблемы с этим двоичным файлом или зависимыми DLL-файлами

(7) В чем проблема? Научи бухов выгружать в dt вручную и экспериментировать. А НАСТОЯЩЕЕ резервное копирование - средствами SQL, как мужик.

я не мужик))

их там народу много, dt  только монопольно выгружать надо же

(19) кавычки?

(21) Не ври, личка говорит, что мужик :))

а dt  бывает нужна прям сейчас)

Непрерывно тащусь вот от таких постов типа: "Я не хочу делать правильно, подскажите, как мне правильно сделать неправильно".

по умолчанию наверное, не поменяла

(7) Просто тупо скопируй каталог базы и все.

(27) Тогда давай фотку :))

(27) Ага, спалилась. Сейчас фотку требовать начнут.

насчет sql "внедренцы" напугали, что если не пробовали раньше, то не трогайте, чтобы не испортить ничего. может конечно пугают просто

у Вас тут фэйс контроль оказывается)

(31) Стопудово пугают. Скриптов для резервного копирования вагон и маленькая тележка. Даже я могу подкинуть.

подкиньте, если не сложно

DECLARE @CurrentFileDate char(10)
        , @BackupFile varchar(255)

SET @CurrentFileDate = CONVERT(char(10),getdate(),121)
SET @BackupFile = 'D:\SQL_Back\MyLovelyBackup-'+@CurrentFileDate + '.bak'

BACKUP DATABASE MyLovelyBase
    TO  DISK = @BackupFile
WITH
    NOFORMAT,
    NOINIT,  
    NAME = N'LovelyBase - Full Database Backup',
    SKIP,
    RETAINDAYS = 20,
    STATS = 10;
GO

Что-то вроде.

Спасибо, еще бы знать, что с этим делать). Я в этом совсем чайник.

Странно, почему путь не может найти regsvr32.exe C:\Program Files\1cv82\8.2.хх.ххх\bin\comcntr.dll (хх, если что поменяла на цифры)

библиотека такая в этом месте существует

>>не удалось загрузить модуль C:\Program  Проверьте, что двоичный файл храниться на указанном пути или запустите отладку, что бы диагностировать проблемы с этим двоичным файлом или зависимыми DLL-файлами


Я уже говорил, что из за отсутствия ковычкек- скрипт парсит путь до пробела, и валится, потому что папки PROGRAM не существует.

а где кавычки нужно поставить?

(37) В свете открывшихся обстоятельств, мы теперь требуем, чтобы у тебя в личной карточке поменялся пол и появилась фотка =)))

пол поменяла)

(41) (43) Теперь бы цвет волос выяснить. И скорректировать. :)

Кавычками закрываем строку, которая содержит пробелы, но должна представлять собой единую сущность. Например, путь к файлу, передаваемый в качестве параметра. Я понятно выражаюсь?

все, с кавычками разобралась

спасибо

(47) а фотка?

(45) фига... как то меня на объяснение больше чем "кавычки поставь" не хватает, а оно вон как можно объяснять =)) не быть мне учителем

да, хорошее объяснение) только библиотека зарегистрировалась, а ошибка все та же

(50) писят постов уже... триал версия кончилась. Надо ПРОФ преобретать. ПРОФ версия поддержки требует наличия фото в профиле.

(50) В чем еще проблема?

Сервер недоступен ( не отвечает (завершается аварийно или порт занят другим приложением ) источник v82.COMConnector.1  та же самая ошибка,что и до регистрации библиотеки

(53) вы своим чайником отняли у себя возможность получить помощь...

(53) составь полную командную строку для резервирования
Т.е. вместо этого
PrgDirx86 + """ CONFIG /S" + ServerName2 + "\" + InfoBaseName + _
                      " /N" + InfoBasesAdminName + " /P" + InfoBasesAdminPass + _
                      " /UC" + LockPermissionCode + " /DisableStartupMessages /DumpIB" + FullPathName

Пропиши все руками и выполни в командной строке. Для тестирования.
Резервирование по этому скрипту всё равно выполняется без com.

зато объективно) (это я насчет фотки)

Прежде чем городить (0), кликни правой кнопкой по ярлыку запуска 1С, и в поле "Объект" впиши РУКАМИ полную командную строку, по типу как советуют в (55). Добейся, чтобы так заработало, а уж потом, после этого, начинай свои раскопки на тему "почему у меня не работает".

(56) Нет, фотка незачет... Мы так не играем))

спасибо всем, кто отвечал, к сожалению сегодня больше не попробовать, народ работает , обязательно воспользуюсь советом

(59) подсказка из зала: а на тестовой базе можно играться сколько хочешь. И народ будет работать дальше.

(59) ты еще и на рабочей базе это делала? оО омфг!

НУ КОПИЯ ПРЕДВАРИТЕЛЬНО СДЕЛАНА БЫЛА, А ЧЕМ ТУТ МОЖНО ИСПОРТИТЬ БАЗУ?

(62) Пользователей невзначай так отрубишь несколько раз массово....

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

(62) А то что пол дня ты мешала работать?

ну и... вот эта картинка в тему
http://xkcd.ru/i/327_v1.png

нет, не мешала, до этого на обеде тоже пробовала и сегодня

(66) Если что, то у этого скрипта одно достоинство - он отрубает пользователей (вдруг кто-то на ночь не вышел).
В принципе и в батнике можно копировать.

т.е в PrgDirx86 + """ CONFIG /S" + ServerName2 + "\" + InfoBaseName + _
                      " /N" + InfoBasesAdminName + " /P" + InfoBasesAdminPass + _
                      " /UC" + LockPermissionCode + " /DisableStartupMessages /DumpIB" + FullPathName

вместо ServerName2 ,InfoBaseName ,InfoBasesAdminName ,InfoBasesAdminPass ,LockPermissionCode  свои параметры прописать и вставить в выполнить?

(68) Правильно. Нужно собрать строку для запуска РУКАМИ и ее как-то выполнить: через консоль или как я написал.

(66) >> Если что, то у этого скрипта одно достоинство - он отрубает пользователей (вдруг кто-то на ночь не вышел).

6-ть лет назад, со времен БП 1.5 во ВСЕХ типовых есть специальный механизм "мягкого" выгона пользователей. Его, если эта типовая, в 2014, уж пора б как-нить использовать. Не?

Кстати, автор. Какая конфа то хоть? Типовая с БСП?

Управление производственным предприятием, редакция 1.3 (1.3.50.1/1.4)  не типовая, переделанная под нас

что за специальный механизм "мягкого" выгона пользователей? я только стандартную блокировку соединений знаю

(69) > "мягкого" выгона пользователей
Ну это если в рабочее время, ночью кто кто закроет программу? Только отрубить и можно.