powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Скрипт бекапа 1С и оповещения.
2 сообщений из 2, страница 1 из 1
Скрипт бекапа 1С и оповещения.
    #37821898
andy47
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть вот такой вот скрипт:

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. Проверьте подклчено пиание и т.д.

Народ! нид хелп!
...
Рейтинг: 0 / 0
Скрипт бекапа 1С и оповещения.
    #37900406
zolitude
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
andy47,

Добавляем в самый вверх скрипта:

Код: vbnet
1.
On Error Resume Next



Добавляем в самый низ скрипта:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
'Обработка номера ошибки
Select Case Err.Number
  Case 0 : sMessage = "Скрипт успешно завершен"
  Case X : sMessage = "Мое обработанное сообщение" 'Где Х - отловленный номер ошибки
  Case Else : sMessage = "Мое необработанное сообщение"
End Select
MsgBox(sMessage)
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Скрипт бекапа 1С и оповещения.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]