Автоматическая архивация баз данных 1С 8.2, 8.1 и 7.7

Опубликовал roskmv в раздел АДМИНИСТРИРОВАНИЕ - Резервное архивирование (backup)

Автоматическая архивация баз данных 1С 8.2, 8.1 и 7.7  без установки дополнительного ПО. Удаление устаревших архивов, дублирование ежемесячное в другой каталог, отправка на e-mail письма о работе скрипта (каждый раз или после аварийного завершения), максимально подробный лог-файл.

С обновления от 14.07.2010 поддержка 1С 8.2 !!!

Ничего сложно нет. Кто работает со скриптами все поймет. Для остальных созданы комметарии к наиболее важным блокам программы.

Основные принципы работы:


    *  каждая база 1С архивируется в отдельную папку;
    *  в этой самой "отдельной папке" накапливаются все архивы баз 1С;
    *  при наступлении окончания срока хранения архива(ов) - автоматически удаляются из   соответсвующих папок;
    *  перед выгрузкой баз закрываются все локально запущенные экземпляры 1С версий 7.7, 8.1 и 8.2;
    *  ведётся максимально подробный лог;
    *  в случае АВАРИЙНОГО ЗАВЕРШЕНИЯ работы скрипта от имени заданного пользователя (напр. администратора) отправляется предупреждающее сообщение на указанный адрес. Есть возможность вложить в сообщение файл (напр. подробный лог, записываемый при архивации);
    *  работает с ФАЙЛОВЫМИ базами 1С v 8.1, 8.2 и любыми базами 1С v 7.7.

Весь процесс архивирования выполняется только средствами самой Windows и 1С (без привлечения дополнительного ПО).

Опубликована ОБНОВЛЕННАЯ ВЕРСИЯ v2 от 06.07.2010!!!


ИЗМЕНЕНИЯ в новой версии:

    *  Теперь все необходимые переменные и константы вынесены в начало скрипта;
    *  Сам код стал более информативным (добавлены новые комментарии);
    *  Лог-файл также стал более информативным, каждая операция подробно отражена;
    *  Добавлена функция дополнительного ежемесячного резервного копирования (дублирования) архивных файлов в отдельный каталог (раз в месяц дублируется последний файл). Если файл уже был ранее скопирован, то повторное копирование не происходит (дабы избежать безсмысленных операций), о чем выводится сообщение в логе;
    *  После операции ежемесячного дублирования в лог выводится результат операции (напр. имя скопированного файла);
    *  После удаления устаревших файлов в лог записывается информация о кол-ве удаленных объектов;
    *  Появилась возможность управления состояниями процессов удаления файлов, дополнительного резервного копирования и отправки e-mail. Теперь при помощи констант можно ВКЛ. или ВЫКЛ. данные процессы;
    *  Проверяет наличие свободного места на диске для архивных копий и записывает в лог;
    *  Исправлена ошибка при работе с базами 1С v 7.7, при которой не выполнялось удаление устаревших файлов.

С  ОБНОВЛЕНИЯ от 14.07.2010 поддержка 1С 8.2 !!!

С  ОБНОВЛЕНИЯ от 24.07.2010 добавлена возможность отправки сообщений о каждом завершении работы скрипта на e-mail. При помощи константы EmailEndScript: если True будет отправляться извешение об окончании работы скрипта, если False - не будет!

Еще новая опция. Определить наличие зарегистрированного пользователя в системе 1С. Константа User = True - пользователь есть (логин+пароль), User = False - в системе нет определенных пользователей (при этом имя и пароль запрашивать не будет).

Скрипт редактируем в блокноте, указавая свои данные. Что и где ввести см. на скриншотах!

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

Скачивайте! Буду рад, если кому-то помог!

P.S.
Планирую продолжить развитие темы.
Что будет в новой версии?
Информирование пользователей домена о начале регламентных работ.
Возможность принудительного завершения процессов 1С на всех компьютерах домена.
Отправки e-mail с компьютера, на котором не установлен локальный SMTP-сервис/сервер.
и конечно работа с SQL-версиями.
Идей много... Дело за малым... Найти ВРЕМЯ!

Наименование Файл Дата Размер Кол. Скачив.
Archivator1Cv8_v2
.vbs 01.02.12 32,58Kb 3918 Скачать
414

См. также

Лучшие комментарии

40. semkon (файл скачал) 16.07.2010 17:58
Скачал и ... неожидал ... заработало сразу, правильно и без глюков. :o
Такое редкость.
Автору однозначно преспект !!! :D
Плюсануть не жалко ;)
+ 2 [ skutuz; werdikt; ]
# Ответить
41. roskmv 16.07.2010 18:08
Однако...
Всем нравится, качают, все работает, а ... плюсануть забываем!?
Обидно-о-о :(
# Ответить
43. roskmv 19.07.2010 23:49
Все правильно заполнил...
Прошу прощения, моя ошибка :o
Уже исправил файл и закачал ;)
+ 1 [ 11120222; ]
# Ответить
72. DobryaginaB (файл скачал) 14.10.2010 13:38
Спасибо за обработку! Работает отлично. Немного дописала, чтобы по окончании выдавалось окно сообщения. А то не видно было, когда закончилась архивация.

В целом - все очень понравилось и пригодилось.
+ 1 [ andreyrosp; ]
# Ответить
63. Brom46 (файл скачал) 14.09.2010 15:26
Отличный скрипт :D,
в коплекте с бесплатным xStarter работает на 5 с плюсом :)

немного дописал функцию для прямой отправки мыла через SMTP майла-ру (можно и любого другого)...
[1C-CODE]
Set iConf=CreateObject("CDO.Configuration")
Set Flds=iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="sender@mail.ru" 'почтовый ящик отправителя
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="pass" ' пароль на почтовый ящик
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
Flds.Update
objEmail.Send()
[/1C-CODE]
(может пригодится кому)
Ответили: (69)
+ 1 [ numerok; ]
# Ответить
Обработка ввода поступления товаров на розничный склад
Алкогольная декларация для Бухгалтерии 7.7 и УСН 7.7 (Приложения 5, 6, 7, 8 и 11, 12) в формате 4.30
Алкогольная декларация для "Торговля и склад ред.9.2" 7.7 (Приложения 5, 6, 7, 8 и 11, 12) в формате 4.30
АБСОЛЮТНО НОВАЯ Алкогольная декларация для 1С 8 (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 формы) с подписью и шифрованием, ...
УПП: Переработка рулонных материалов, или сколько нужно программистов на крупный проект
Внешние печатные формы для Бухгалтерии предприятия 3.0
Экспресс-регистрация контрагентов и организаций по данным ФНС (ЕГРЮЛ/ЕГРИП) / Быстрый, правильный ввод, создание элемент...
DT:Менеджер 8.2 (Распаковка *.DT. Быстрый экспорт конфигурации. Сброс пользователей. Работа с "битыми" DT)
Настраиваемый управленческий баланс V3.14
Учет штучных товаров, требующих уникального серийного номера
Выгрузка данных из Управления торговлей 10.3 в Бухгалтерию предприятия, ред. 3.0 (Версия 1.2.0)
[1С 8] Мегапрайс: Помощник закупок (анализ продаж, анализ остатков, анализ прайсов) Планирование и автоматизация закупок...

Комментарии

Показать последние 100 из (159)
154. roskmv 15.08.2012 11:42
(153) tana1257, Сожалею, но с базами SQL данный архиватор пока не работает, было в проекте, но сейчас нет времени.
Попробуйте программы, о которых упоминают выше.
# Ответить
155. tana1257 15.08.2012 12:01
Спасибо за оперативный ответ.
# Ответить
156. ghool (файл скачал) 14.09.2012 14:33
- 1с77
- запуск в пакетном режиме с указанием базы, пароля
- в случае, если в список (по сути в реестр) эти базы добавлены не были

В этой ситуации 1с-ка не выполняет указанные операции, а тупо предлагает дописать базы в список баз (в реестр)

У вас эта ситуация продумана?
Самы простой вариант, для 1с77 дописывать новую "временную" базу в реестр, а после окончания выгрузки удалять её.
Там же можно добавить всякие галочки "не показывать при запуске", которые иногда вылазят при первом запуске базы после обновления.
# Ответить
157. ghool (файл скачал) 14.09.2012 14:33
выгонять юзеров, как это тут реализовано
http://infostart.ru/public/101417/
не думаете?
# Ответить
158. skilster (файл скачал) 27.09.2012 09:43
Спасибо! Все прекрасно работает, но не мешало бы расширить функционал на SQL-базы. Предлагаю воспользоваться моим скриптом: http://infostart.ru/public/153571/
# Ответить
159. eigen20 23.10.2012 17:23
Большое спасибо автору, очень нужная вещь!
# Ответить
160. internetname 08.02.2013 14:41
Нужная вещь.
# Ответить
161. binagal (файл скачал) 13.03.2013 05:37
Константа EmailAddAttachment используется только в отправке почты:
objEmail.AddAttachment(EmailAddAttachment)
в записи лога она не используется. Т.е. такого файла не существует. Получаем ошибку:
CDO.Message.1: Не удается найти указанный файл.

Какой файл тут должен использоваться?
# Ответить
162. binagal (файл скачал) 13.03.2013 05:39
(115) Трактор, как Вы решили проблему с EmailAddAttachment?
# Ответить
163. c00lwork (файл скачал) 05.01.2014 13:33
я не программист но в логе у меня написано Запускаем 1C в пакетном режиме.. и ошибка
# Ответить
Логин:
Пароль:
Текст сообщения*
Прикрепить файл
414
Другие публикации автора:

Создание 21.06.10 13:33

Обновление 01.02.12 14:32

№ Публикации 72057

Статистика:

Просмотры 13676

Загрузки 3918

Комментарии 159