AS
похоже вот на ту set objFSO ругается
Size: a a a
2020 June 22
M
strX64 = Session.Property("Msix64")
if Len(strX64) > 0 Then
strSysFolder = Session.Property("System64Folder")
else
strSysFolder = Session.Property("SystemFolder")
end if
strMSIDLL = strSysFolder + "msi.dll"
Set objFSO = CreateObject("Scripting.FileSystemObject")
strMsiVersion = objFSO.GetFileVersion(strMSIDLL)
Session.Property("FULLMSIVERSION") = strMsiVersion
Dim astrMsiParsedVersion(4)
i = 0
'find loc of first dot
iPos = InStr(strMsiVersion, ".")
While iPos > 0
'save off everything to the left of the dot in array dimension
astrMsiParsedVersion(i) = Left(strMsiVersion, iPos - 1)
'strip off everything to the left of the now saved dot
strMsiVersion = Right(strMsiVersion, Len(strMsiVersion) - iPos)
i = i + 1
iPos = InStr(strMsiVersion, ".")
Wend
astrMsiParsedVersion(i) = strMsiVersion
Session.Property("MSIMAJVERSION") = astrMsiParsedVersion(0)
Session.Property("MSIMINVERSION") = astrMsiParsedVersion(1)
Session.Property("MSIBUILDVERSION") = astrMsiParsedVersion(2)
Session.Property("MSIREVVERSION") = astrMsiParsedVersion(3)
if Len(strX64) > 0 Then
strSysFolder = Session.Property("System64Folder")
else
strSysFolder = Session.Property("SystemFolder")
end if
strMSIDLL = strSysFolder + "msi.dll"
Set objFSO = CreateObject("Scripting.FileSystemObject")
strMsiVersion = objFSO.GetFileVersion(strMSIDLL)
Session.Property("FULLMSIVERSION") = strMsiVersion
Dim astrMsiParsedVersion(4)
i = 0
'find loc of first dot
iPos = InStr(strMsiVersion, ".")
While iPos > 0
'save off everything to the left of the dot in array dimension
astrMsiParsedVersion(i) = Left(strMsiVersion, iPos - 1)
'strip off everything to the left of the now saved dot
strMsiVersion = Right(strMsiVersion, Len(strMsiVersion) - iPos)
i = i + 1
iPos = InStr(strMsiVersion, ".")
Wend
astrMsiParsedVersion(i) = strMsiVersion
Session.Property("MSIMAJVERSION") = astrMsiParsedVersion(0)
Session.Property("MSIMINVERSION") = astrMsiParsedVersion(1)
Session.Property("MSIBUILDVERSION") = astrMsiParsedVersion(2)
Session.Property("MSIREVVERSION") = astrMsiParsedVersion(3)
Сколько лет этому и какая платформа? Пусть человек, который этотсобрал сам попробует сделать clean install и upgrade. У меня подозрение, что в системе не выходит создать инстанс объекта scripting.filesystemobject из-за каких-то системных изменений
AS
Сколько лет этому и какая платформа? Пусть человек, который этотсобрал сам попробует сделать clean install и upgrade. У меня подозрение, что в системе не выходит создать инстанс объекта scripting.filesystemobject из-за каких-то системных изменений
нуу сколько лет не скажу, думаю от 5
клин и апгрейд при обычных условиях в пределах матрицы разрешенных систем работает. клиент штатовская военка, там без инета и думаю без обнов. хз сколько
тот, который пожаловался =)
клин и апгрейд при обычных условиях в пределах матрицы разрешенных систем работает. клиент штатовская военка, там без инета и думаю без обнов. хз сколько
тот, который пожаловался =)
AS
ладно, посмотрю еще фикс, есть ли там эта строка
AS
хм. он просто удалил проверку версии
AS
Ну, вот теперь любитесь с этой странной логикой. У них вам заказан доступ к этому объекту.
подскажите пожалуйста, где происходит вызов са?
AS
InstallExecuteSequence, оттуда тоже ушел са
2020 June 24
НП
InstallExecuteSequence, оттуда тоже ушел са
А вам нужно причину написать почему именно инсталлятор не пашет?
AS
А вам нужно причину написать почему именно инсталлятор не пашет?
Нет, мне нужно повторить проблему клиента, чтобы подтвердить что фикс работает
AS
Но машина клиента совершенно недоступна. Военка без интернета
НП
Вы пробуете на проблемном инсталляторе? а ОС какая у клиента? Win7x64sp1 En?
AS
Вы пробуете на проблемном инсталляторе? а ОС какая у клиента? Win7x64sp1 En?
Последняя поддерживаемая 2016 сервер
AS
Инсталлятор не проблемный. Он не может получить доступ к версии msi и завершает инсталляцию. Но так как шагов там много - нужно воспроизвести проблему и проверить не стопнет ли он где-то еще
AS
Это можно сделать только на клиентской машине, с теми правами и ограничениями. По этому на данном этапе шаг с проверкой просто выпилили
AS
И ждем от клиента следующую ошибку