| 0
- 01.06.2013 - 20:27
|
Пытаюсь установить с помощью скрипта (Взят из документации по установке 8.3) Но установка не проходить :( Ошибка Msi API Error 80004005: InstallProduct,PackagePath,PropertyValues Подскажите куда рыть? Option Explicit ' изменять интерфейс пользователя Const msiUILevelNoChange = 0 'Использовать интерфейс пользователя, заданный по умолчанию Const msiUILevelDefault = 1 'Не отображать интерфейс пользователя (молчаливая установка) Const msiUILevelNone = 2 'Только индикатор прогресса и отображение ошибок Const msiUILevelBasic = 3 'Интерфейс пользователя без диалоговых сообщений Const msiUILevelReduced = 4 'Полный интерфейс пользователя Const msiUILevelFull = 5 'Если используется с msiUILevelBasic, то отображается индикатор 'прогресса без кнопки Cancel Const msiUILevelHideCancel = 32 'Если используется с msiUILevelBasic, то отображается индикатор 'прогресса без отображения любых диалогов, в т. ч. и ошибок. Const msiUILevelProgressOnly = 64 'Если используется с любым из перечисленных значений, инсталлятор 'выводит сообщение в конце установки о конечном результате. Const msiUILevelEndDialog = 128 '***** Необходимо изменить на реальный каталог установки Const DistrFolder="\\Server\1CDistr\" Const shortcutName = "Запуск 1C Предприятия" Dim shortcutTarget: shortcutTarget = DistrFolder & "1cestart.exe" 'Константы для определения действия ' требуется установка Const requiredInstall = 1 ' требуется удаление Const requiredUninstall = 0 'Значение параметра ProductCode из файла setup.ini... '... для удаляемой версии Const unInstallUID="{9173B91C-FF56-4F25-82D1-7F68244044CD**" '... для устанавливаемой версии Const InstallUID="{4ABF35FE-3FA6-4816-AD64-CDBB6BD1B492**" 'процедура установки или удаления указанной версии продукта Sub installOrUninstall (ByVal productCode, ByVal msiPackage, ByVal mstTransform, ByVal requiredAction) 'productCode – Информация о коде продукта. Находится в файле ' setup.ini, ключ ProductCode 'msiPackage – Установочный пакет 1CEnterprise 'mstTransform – файл языкового преобразования для инсталлятора 'requiredAction – требуемое действие requiredInstall или ' requiredUninstall 'Переменная для формирования дополнительных ' параметров инсталлятору Dim cmdLine On Error Resume Next Dim installer, session Set installer = Nothing Set session = Nothing Set installer = Wscript.CreateObject("WindowsInstaller.Installer") : processError installer.UILevel = msiUILevelBasic 'msiUILevelNone 'или укажите другой вариант интерфейса пользователя 'проверка установки продукта Set session = installer.OpenProduct(productCode) If session Is Nothing AND requiredAction = requiredInstall Then 'продукт не установлен, и требуется его установка cmdLine = "TRANSFORMS=adminstallrelogon.mst;" If Not mstTransform Is Empty Then 'добавим указание инсталлятору разговаривать на указанном языке cmdLine = cmdLine & mstTransform 'можно дополнительно указать, какие компоненты нужно установить 'cmdLine = cmdLine & " DESIGNERALLCLIENTS=1 THINCLIENT=1 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=1 LANGUAGES=RU" End If 'установим платформу Set session = installer.InstallProduct(msiPackage, cmdLine): processError 'создадим ярлык на рабочем столе createShurtcut() ElseIf Not session Is Nothing AND requiredAction = requiredUninstall Then 'платформа уже установлена, и требуется ее удаление 'обьект session может быть только один! Set session = Nothing 'укажем, что нужно удалить с компьютера пользователя эту версию cmdLine = "REMOVE=ALL" 'удалим Set session = installer.InstallProduct(msiPackage, cmdLine): processError End If Set session = Nothing Set installer = Nothing End Sub 'обработка ошибок Sub processError Dim msg If Err = 0 Then Exit Sub msg = Err.Source & " " & Hex(Err) & ": " & Err.Description Wscript.Echo msg Wscript.Quit 2 End Sub 'создание ярлыка Sub createShurtcut Dim WshShell, oShellLink Set WshShell = WScript.CreateObject("WScript.Shell") Dim strDesktop: strDesktop = WshShell.SpecialFolders("Desktop") Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & shortcutName & ".lnk") oShellLink.TargetPath = shortcutTarget oShellLink.WindowStyle = 1 oShellLink.Description = shortcutName oShellLink.Save Set oShellLink = Nothing Set WshShell = Nothing End Sub 'удалим версию 260 installOrUninstall unInstallUID, DistrFolder + "8.2.9.260\setup\1CEnterprise 8.2.msi", "1049.mst", requiredUninstall 'установим версию 356 installOrUninstall InstallUID, DistrFolder + "8.3.3.641\setup\1CEnterprise 8.2.msi", "1049.mst", requiredInstall     | |
| 1
- 03.06.2013 - 12:34
| Мы тут все просто настолько круты, что администрированием и установкой не занимаемся.Идите в мисту | |
Интернет-форум Краснодарского края и Краснодара |
