Бэкап 1с82 серверный вариант в *.dt скриптом #522649

Данный скрипт хорошо отрабатывал на редакции УПП 1.2 платформы 8.1 Сейчас обновил базу на редакцию 1.3 платформу 8.2 и скрипт перестал работать, не могу понять почему.. HKEY_CLASSES_ROOTCLSID{5CD98F13-1050-4b43-84F2-33AD97CFC287} написал новое для 82. Порт кластера указал новый 1641. v82.COMConnector написал. Что может быть не так? Помогите пожалуйста разобраться. Скрипт vbs:  LockMessageText = vbCrLf + "БАЗА ЗАКРЫТА НА СОЗДАНИЕ РЕЗЕРВНОЙ КОПИИ!" + vbCrLf + " ВРЕМЯ ОЖИДАНИЯ ОКОЛО 5-10 МИНУТ."  LockPermissionCode = "2192" ' Код блокировки базы  FindInfoBase = False 'Флаг, что ИБ найдена  For Each Claster In Clasters    If Claster.MainPort = ClasterPortNumber Then      ServerAgent.Authenticate Claster, ClasterAdminName, ClasterAdminPass      ' Получаем список рабочих процессов      WorkingProcesses = ServerAgent.GetWorkingProcesses(Claster)      For Each WorkingProcess In WorkingProcesses        If WorkingProcess.Running = 1 Then          ' Для каждого рабочего процесса создаем соединение с рабочим процессом          If Not FindInfoBase Then            ' Получаем список ИБ рабочего процесса            InfoBases = connecttoworkprocess.GetInfoBases            For Each InfoBase In InfoBases              ' Ищем нужную базу            If Not FindInfoBase Then ' Не нашли нужную базу            For Each Connection In Connections

Debug.print PrgDirx86

какая ошибка?

Вообще ничего не выдавал... висел wscript.exe просто и все. ServerName = "fiesta:1640" Теперь в базу входит, конфигуратор открывается, а потом сразу закрывается, ничего не делая(

может надо fiesta:1641, а вообще как-нибудь содержимое lineexe в файл выведи, и пробуй из командной строки позапускать с разными параметрами

не, 1640 все правильно. Он же заходит теперь в 1с-ку. Процесс выгрузки не идет.

как можно lineexe вывести в файл? пытался явным образом прописать его, не получается, не могу разобраться в кавычках(

Запускается, но выходит окно запуска, когда нажмешь кнопку конфигуратор, то фоново заходит и выгружает. Значит дело просто где-то в кавычках.. что же лишнее?..

Дело было не в кавычках)  FindInfoBase = False 'Флаг, что ИБ найдена  For Each Claster In Clasters    If Claster.MainPort = ClasterPortNumber Then      ServerAgent.Authenticate Claster, ClasterAdminName, ClasterAdminPass      ' Получаем список рабочих процессов      WorkingProcesses = ServerAgent.GetWorkingProcesses(Claster)      For Each WorkingProcess In WorkingProcesses        If WorkingProcess.Running = 1 Then          ' Для каждого рабочего процесса создаем соединение с рабочим процессом          If Not FindInfoBase Then            ' Получаем список ИБ рабочего процесса            InfoBases = connecttoworkprocess.GetInfoBases            For Each InfoBase In InfoBases              ' Ищем нужную базу            If Not FindInfoBase Then ' Не нашли нужную базу            For Each Connection In Connections