Имя: Пароль:
1C
1C 7.7
v7: автоматический backup
0 lucifer
 
23.08.11
11:48
счас я делаю так
есть файлик C:\backup.txt с содержанием:


[General]
Output = путь к логу
Quit = 1
UnloadData = 1
[UnloadData]
UnloadToFile  = путь к архиву
IncludeUserDef = 1

потом в батнике выполняется команда
config /D путь к базе /N пользователь /P пароль /@ C:\backup.txt

вопрос, можно ли сделать что бы архив создавался запароленый?
1 ДенисЧ
 
23.08.11
11:48
А что, 1с умеет паролить архив выгрузки?
2 filh
 
23.08.11
11:49
Password=
3 lucifer
 
23.08.11
11:50
(2) спасибо счас попробую
4 lucifer
 
23.08.11
11:51
(2) это в [General] добавить?
5 filh
 
23.08.11
11:51
(3) это в секции [UnloadData]
6 filh
 
23.08.11
11:51
(4)
:)
7 1Сергей
 
23.08.11
11:53
(1) Здрасти, приехали :)
8 Мулька
 
23.08.11
11:54
Нах та выгорузка нужна - директорию базы тоже надо бэкапить. винРар рулит
9 chief accountant
 
23.08.11
11:57
(8) Нафига винрар? Просто рар рулит, к тому же он бесплатный
10 1Сергей
 
23.08.11
12:00
copy рулит
11 andrewks
 
23.08.11
13:34
(9) щозанах "просто рар"? который синенький, по досом? О_о

7-zip рулит
12 Cthulhu
 
23.08.11
13:45
кобиан бэкап.
который и (11) умеет.
13 Kookish
 
23.08.11
13:50
У меня так делает:

   //----------------------***********--------------------------
   Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы() + "Admin1C.dll")=0 Тогда
       Сообщить("Не обнаружена компонента (Admin1C.dll) в каталоге базы: " + КаталогИБ());
       Если Вопрос("Завершить работу программы?","Да+Нет") = "Да" Тогда
           Возврат;
       Иначе
           СтатусВозврата(0);
           Возврат;
       КонецЕсли;
   Иначе
       ОбъектВК=СоздатьОбъект("AddIn.Admin1C");
       ТабПользователи = Создатьобъект("ТаблицаЗначений");
       Пользователи=ОбъектВК.ПолучитьПользователей();
       Пользователи.Выгрузить(ТабПользователи);
       Для Стр = 1 По ТабПользователи.КоличествоСтрок() Цикл
           Пользователь = ТабПользователи.ПолучитьЗначение(Стр,"Имя");
           Режим = ТабПользователи.ПолучитьЗначение(Стр,"Режим");
           Если (Строка(Пользователь) = ИмяПользователя()) И (Строка(Режим) = "П") Тогда
               ТабПользователи.УдалитьСтроку(Стр);
               Прервать;
           КонецЕсли;
       КонецЦикла;
   КонецЕсли;    
   
   Если ТабПользователи.КоличествоСтрок() = 0 Тогда
       Если Вопрос("Выполнить сохранение базы данных?","Да+Нет") = "Нет" Тогда
           Возврат;
       КонецЕсли;
   Иначе
       Возврат;
   КонецЕсли;
   
   ИмяФайлаЯрлыка  = КаталогИБ() + "Arhiv.lnk";
   ИмяФайлаЗапуска = КаталогИБ() + "PakRun.txt";
   Если ФС.СуществуетФайл(ИмяФайлаЯрлыка) = 0 Тогда
       Предупреждение("Файл запуска " + ИмяФайлаЯрлыка + " не существует!");
       Возврат;
   КонецЕсли;
   Если ФС.СуществуетФайл(ИмяФайлаЗапуска) = 0 Тогда
       Предупреждение("Файл настройки " + ИмяФайлаЗапуска + " не существует!");
       Возврат;
   КонецЕсли;
   
   ФайлЗапуска = СоздатьОбъект("Текст");
   ФайлЗапуска.Открыть(ИмяФайлаЗапуска);
   
   Релиз = "";
   Для Инд = 1 По Метаданные.Константа() Цикл
       Объект = Метаданные.Константа(Инд);
       Если Строка(Объект) = "НомерРелиза" Тогда
           Релиз = Константа.НомерРелиза;
           Прервать;
       Иначе
           Продолжить;
       КонецЕсли;
   КонецЦикла;
   
   Релиз = ?(ПустаяСтрока(Релиз) = 0,Константа.НомерРелиза,"..Arh");
   Если ПустаяСтрока(Релиз) = 0 Тогда
       Релиз = Прав(Строка(Релиз),3);
   КонецЕсли;
   ТДата = ТекущаяДата();
   Zip = "D:\Копии 1С\Ural_" + ДатаГод(ТДата) + "-" + ДатаМесяц(ТДата) + "-" + ДатаЧисло(ТДата) + ".zip";
   ЗамСтрока = "SaveToFile=" + Zip;
   ФайлЗапуска.ЗаменитьСтроку(9,ЗамСтрока);
   
   Если ФС.СуществуетФайл(Zip) = 1 Тогда
       Ответ = Вопрос("Архив за "+ТекущаяДата()+" уже существует! Перезаписать?","Да+Нет");
       Если Ответ = "Да" Тогда    
           ФайлЗапуска.Записать(ИмяФайлаЗапуска);
       Иначе
           Возврат;
       КонецЕсли;        
   Иначе
       ФайлЗапуска.Записать(ИмяФайлаЗапуска);
   КонецЕсли;
   ЗапуститьПриложение(ИмяФайлаЯрлыка);
   ЗавершитьРаботуСистемы(0);
   //----------------------***********--------------------------
   
КонецПроцедуры // ПриЗавершенииРаботыСистемы()
14 Kookish
 
23.08.11
13:51
Для этого нужна только компонента Admin1C.dll