LoginOS
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Существует Script для резерного копирования инф.баз 1С: Пред.7.7, который работает на половину, т.е. создает резерную копию базы, при условии, что нет процессов 1С. По идее, он должен сам убивать все процессы, но мешает ему как он "говорит" -
Не удалось создать объект SQLDMO.SQLServer, хотя данная компонента установлена!!!
Вопрос: В чем проблема???
Script:
Sub window_onload
Str = ""
Str = Str & "Версия операционной системы - " & GetOSVersion & "<br>"
Str = Str & "Версия WSH - " & GetWSHVersion & "<br>"
Str = Str & "Версия WMI - " & GetWMIVersion & "<br><br>"
Str = Str & TryObject("V7Backup.InfBase","- V7Backup работать не будет")
Str = Str & TryObject("V7Backup.Mail"," ")
Str = Str & TryObject("Wscript.Shell","V7Backup работать не будет")
Str = Str & TryObject("Scripting.FileSystemObject","V7Backup работать не будет")
Str = Str & TryObject("SQLDMO.SQLServer", "- невозможно отключение пользователей от SQL - сервера")
Str = Str & TryObject("CDO.Message", "- невозможно будет отправить сообщение по электронной почте")
Str = Str & TryObject("ADODB.Stream", "- не будет работать автоопределение параметров SQL - базы")
Str = Str & TryObject("Scripting.Dictionary", "- не будут определяться дополнительные параметры из свойства Params")
Str = Str & CheckADSI
Str = Str & CheckRegExp
oDiag.innerHTML = Str
Call Get1CBases
End Sub
Function TryObject(ObjName, FailStr)
On Error Resume Next
Set Obj = Nothing
Set Obj = CreateObject(ObjName)
If Obj Is Nothing Then TryObject = "Не удалось создать объект """ & ObjName & """ " & FailStr & "<br>"
Set Obj = Nothing
End Function
Log-file:
19.11.2010 4:50:00 CreateAllObjects: Запуск процедуры
19.11.2010 4:50:00 CreateObj: Создан объект Wscript.Shell
19.11.2010 4:50:00 CreateObj: Создан объект Scripting.FileSystemObject
19.11.2010 4:50:00 CreateDict: Запущена процедура
19.11.2010 4:50:00 CreateDict: Завершена процедура
19.11.2010 4:50:00 CreateRegExp: Запущена процедура
19.11.2010 4:50:00 CreateRegExp: Завершена процедура
19.11.2010 4:50:00 CreateObj: Не удалось создать объект SQLDMO.SQLServer
19.11.2010 4:50:01 CreateObj: Создан объект CDO.Message
19.11.2010 4:50:01 CreateObj: Создан объект CDO.Message
19.11.2010 4:50:01 CreateAllObjects: Завершение процедуры
19.11.2010 4:50:01 V7Backup Версия 3.0.5 (Финальная) от 18/10/2004
19.11.2010 4:50:01 Операционная система: Microsoft(R) Windows(R) Server 2003 Enterprise x64 Edition 5.2.3790 Код языка: 1033
..... |
