Автоматическая архивация баз 1С 8.х

Оригинал

Автоматическая архивация баз 1С 8.х для файлового и клиент-серверного варианта

1. Создаем скрипт vbs и сохраняем его в C:\Backup\ZUP.vbs
Код VBS

Set WshShell = CreateObject("WScript.Shell")
dim d,m,y
                   
d = day(date())
if d < 10 then
   d = "0" & d
end if
                   
m = month(date())
if m < 10 then
   m = "0" & m
end if
                   
y = year(date())
                   
h = Hour(Time())
if h < 10 then
   h = "0" & h
end if

Min = Minute(Time())
if Min < 10 then
   Min = "0" & Min
end if
                   
S = Second(Time())
if S < 10 then
   S = "0" & S
end if

'Формируется полное имя файлов выгрузки и лога
s = d & "_" & m & "_" & y & "_" & h & "_" & Min & "_" & S

'Путь к файлу выгрузки
BackupPath = "/DumpIB \\Server1CBackup\SQL_Backup\1c_backup\ZUP\BACKUP\ZUP_" & s & ".dt"

'Путь к логу
LogPath = "/Out \\Server1CBackup\SQL_Backup\1c_backup\ZUP\log\ZUP_Log_" & s & ".log -NoT_runcate"

'Путь к фалу запуска программы 1С
one1CPath = """%systemdrive%\Program Files\1cv81\bin\1cv8.exe"""

'Параметры запуска базы (SQL)                имя кластера\имя базы      пользователь    пароль
Paramters =                       "DESIGNER /S Server1C\ZUP /N UserAdmin1C /P PassWordUserAdmin1C /DisableStartupMessages"

Set fs = CreateObject("Scripting.FileSystemObject")


'Запуск
WshShell.Run one1CPath & " " & Paramters& " " & LogPath & " " & BackupPath, 0, True