|
|
|
Скрипт бекапа 1С и оповещения.
|
|||
|---|---|---|---|
|
#18+
Есть вот такой вот скрипт: Const ForReading = 1, ForWriting = 2, ForAppending = 8 log_file_path = "v:\backup\log\backup.log" Backup_path1 = "v:\backup\magazin" ' filesystem obj Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") ' function for logging Sub LogStr(p_String) Set log_f = fso.OpenTextFile(log_file_path, ForAppending, True) log_f.WriteLine Now & p_String log_f.Close End Sub ' ----------------Дата---------------- strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime") For Each objItem in colItems MyDate = "_" & objItem.Year & "_" & objItem.Month & "_" & objItem.Day Next LogStr "" LogStr " Попытка выгрузки информационной базы магазина " & ". Сегодня - " & MyDate wscript.echo "Пожалуйста проверьте то что на всех компьютерах выключена программа 1C Торговля!!!!" ' restart 1C to reset active connections LogStr " Сброс соединений пользователей. Перезапуск сервера 1С перед бекапом" If (fso.FileExists("C:\Program Files\1cv82\8.2.13.219\bin\ragent.exe")) Then runString = "restart.cmd" Return = WshShell.Run(runString, 1, true) LogStr " Команда остановки выполнена. Код завершения: " & Return else wscript.echo "Ошибка пути расположения агента 1С" end if ' backup base 1 If (fso.FileExists(Backup_path1)) Then fso.DeleteFile(Backup_path1) End If LogStr " Запуск бекапа базы магазина " If (fso.FileExists("C:\Program Files\1cv82\8.2.13.219\bin\1cv8.exe")) Then RunString = "backup.cmd" Return = WshShell.Run(runString, 1, true) else wscript.echo "Ошибка пути расположения 1cv8.exe" end if If (fso.FileExists(Backup_path1)) then SET objFile = fso.GetFile(Backup_path1) if (objFile.Size>5000) Then LogStr " База выгружена в " & Backup_path1 & MyDate & ".dt" fso.MoveFile Backup_path1, Backup_path1 & MyDate & ".dt" LogStr " База скопирована " & Backup_path1 & MyDate & ".dt" WshShell.Run "logger.exe -l 192.168.1.5 -a 514 База выгружена", 0 wscript.echo "База выгруженна успешно !!!! Спасибо!" else wscript.echo "Ошибка выгрузки базы! Перезагрузите бухгалтерский компьютер и подождите 5 минут после его включения. Если была запущена 1С на других компьютерах, их следует перезагрузить. После чего можете запускать «НАЧАЛО РАБОЧЕГО ДНЯ». Если ошибка повториться, напишите заявку на портале.!!!" End If else WshShell.Run "logger.exe -l 192.168.1.5 -a 514 Ошибка выгрузки базы!", 0 wscript.echo "Ошибка выгрузки базы! Перезагрузите бухгалтерский компьютер и подождите 5 минут после его включения. Если была запущена 1С на других компьютерах, их следует перезагрузить. После чего можете запускать «НАЧАЛО РАБОЧЕГО ДНЯ». Если ошибка повториться, напишите заявку на портале.!!!" End if LogStr " Выгрузка завершена " Нужно поправить скрипт что бы он вместо непонятных для пользователя ошибок выводились логичные и понятные иструкции. например: Вместо ошибки Windows Script host Line 15 Char 5 Error не найден путь выдавало окошко с простейшими инструкциями. Здравствуйте у Вас произошла ошибка при выполнении резервного копирования. Вероятнее всего внешний жесткий диск (коробочка черного цвета подкюченная к копьютеру бухгалтера) отключен. Пожалуйста произведите следующие действия 1. Проверьте говрит ли лапочка на жестком диске 2. Проверьте подклчено пиание и т.д. Народ! нид хелп! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.06.2012, 17:15:03 |
|
||
|
Скрипт бекапа 1С и оповещения.
|
|||
|---|---|---|---|
|
#18+
andy47, Добавляем в самый вверх скрипта: Код: vbnet 1. Добавляем в самый низ скрипта: Код: vbnet 1. 2. 3. 4. 5. 6. 7. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.08.2012, 14:09:47 |
|
||
|
|

start [/forum/topic.php?fid=22&msg=37821898&tid=1449517]: |
0ms |
get settings: |
7ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
206ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
34ms |
get tp. blocked users: |
1ms |
| others: | 200ms |
| total: | 481ms |

| 0 / 0 |
