Имя: Пароль:
1C
1С v8
Обновление платформы 1С на нескольких компьютерах.
0 EugeniaK
 
26.07.13
14:26
Необходимо обновить платформу 1С на нескольких компьютерах.
Прочитала об установке по образцу 8.0
Если при запуске setup.exe из каталога дистрибутива программы указан ключ /r, в системном каталоге Windows будет создан файл setup.iss, содержащий ответы пользователя на вопросы программы установки. Если при запуске setup.exe указан ключ /s, для установки будет использован существующий файл setup.iss, который в этом случае должен находиться в одном каталоге с файлом setup.exe. Кроме того, в обоих случаях путь к файлу setup.iss может быть задан явно с помощью ключа /f1.
При установке по образцу будет создан файл setup.log (в том же каталоге, где находится setup.iss). Кроме того, путь к файлу setup.log может быть задан явно с помощью ключа /f2. Файл будет содержать лог установки.
На 8.2 описание не работает, файл setup.iss не создается.
Есть ли какой-то еще способ установки 1С по образцу для 8.2?
1 rinatru
 
26.07.13
14:37
2 Адимр
 
26.07.13
14:44
(0) Запускай 1С через ярлык на шару. Обновлять придется только в одном месте.
3 EugeniaK
 
26.07.13
15:28
(1)(2) Не подходит.
Это РИБ с плохой связью между узлами.
В авторежиме банально обновление не затянет.
Да и установлено уже все изначально без административной установки. Теперь нужно платформу обновить массово.
4 oleg_km
 
26.07.13
20:05
c1CVersion = "8.2.16.368"
Install1Cv82 "{3B5994C5-5FCA-459A-8EED-BFD83429AC9A}", c1CVersion

Sub Install1Cv82(ByVal productCode, ByVal cVersion)
    Dim cmdLine, msiPackage
    Dim installer, session

    Set installer = Nothing
    Set session = Nothing

    On Error Resume Next

    Set installer = Wscript.CreateObject("WindowsInstaller.Installer")
    installer.UILevel = 35
    Set session = installer.OpenProduct(productCode)

    cmdLine = ""

    If session Is Nothing Then
        cmdLine = "TRANSFORMS=adminstallrestart.mst;1049.mst"
        cmdLine = cmdLine & " DESIGNERALLCLIENTS=1 THINCLIENT=0 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=1 LANGUAGES=RU"

        msiPackage = cPathUpdate + "\PF\1cv82\Setup " + cVersion + "\1CEnterprise 8.2.msi"
        Set session = installer.InstallProduct(msiPackage, cmdLine)
    End If
End Sub
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн