|
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
| Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Создание файла ответов MST к новым инсталляторам Windows Installer. |
|
||||||||
|
|
Создание файла ответов MST к новым инсталляторам Windows Installer.
|
|
Ветеран Сообщения: 2212 |
Здравствуйте.
![]() Есть задача создать файлы ответов к нескольким программам запакованным MSI. Сразу оговорюсь, что о Microsoft Office 2003 Resource Kit знаю, пользуюсь, но он подходит только для старых msi инсталляторов (см. вложение). Для примера: Opera`ы выше 11.01 он не пойдёт, файл ответов создастся, а вот инсталлятор его не примет. Есть и другие программы которым тоже не пойдёт старый MS Office 2003 Resource Kit и созданные на его основе MST. Вопрос состоит вот в чём, что есть на подобное Microsoft Office 2003 Resource Kit (такой же простое и незамысловатое) для создания файлов ответов в формате mst? Перепаковывать MSI не хочу (не вижу смысла), нужно только создание файла ответов. Буду благодарен всем за дельный совет или направление поиска. |
|
|
------- Отправлено: 12:29, 23-05-2012 |
|
Ветеран Сообщения: 4677
|
Профиль | Отправить PM | Цитировать Цитата Anton04:
|
|
|
------- Отправлено: 20:06, 24-05-2012 | #21 |
|
Ветеран Сообщения: 2212
|
Профиль | Отправить PM | Цитировать cameron,
К сожалению, но не подошёл "this package does not support hiding dialogs" и даже если продолжить все диалоги в каких-то английских названиях строк (типа PLACEHOLDER_-2066447959). ![]() |
|
------- Отправлено: 10:03, 25-05-2012 | #22 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата Anton04:
|
|
|
Отправлено: 10:26, 25-05-2012 | #23 |
|
Ветеран Сообщения: 2212
|
Профиль | Отправить PM | Цитировать Iska,
Вполне возможно, только всё ровно это не то... |
|
------- Отправлено: 10:42, 25-05-2012 | #24 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать |
|
Отправлено: 11:24, 25-05-2012 | #25 |
|
Ветеран Сообщения: 2212
|
Профиль | Отправить PM | Цитировать Iska,
Понятно, ищем дальше... может и повезёт... |
|
------- Отправлено: 11:55, 25-05-2012 | #26 |
|
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать Цитата Iska:
|
|
|
Отправлено: 13:40, 25-05-2012 | #27 |
|
Ветеран Сообщения: 2212
|
Профиль | Отправить PM | Цитировать Цитата AlexKr:
|
|
|
------- Отправлено: 13:59, 25-05-2012 | #28 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата AlexKr:
Цитата:
|
||
|
Отправлено: 16:22, 25-05-2012 | #29 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Anton04, а так ли уж Вам нужен универсальный редактор? Может быть, сгодится и прямой способ, наподобие:
Option Explicit
Const msiOpenDatabaseModeReadOnly = 0
Const msiOpenDatabaseModeTransact = 1
Dim strPath2OriginalMSI
Dim strPath2WorkingMSI
Dim strPath2MST
Dim objFSO
Dim objWindowsInstaller
Dim strQuery
strPath2OriginalMSI = "C:\Песочница\0008\Opera_1164_1403_in.msi"
strPath2WorkingMSI = GetTemporaryName()
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
With objFSO
strPath2MST = .BuildPath(.GetParentFolderName(strPath2OriginalMSI), .GetBaseName(strPath2OriginalMSI) & ".mst")
.CopyFile strPath2OriginalMSI, strPath2WorkingMSI
End With
Set objWindowsInstaller = WScript.CreateObject("WindowsInstaller.Installer")
' Меняем путь установки приложения по умолчанию:
strQuery = "UPDATE `Directory` SET `DefaultDir`='MyOperaPath' WHERE `Directory` = 'OPERA' AND `Directory_Parent` = 'ProgramFilesFolder'"
With objWindowsInstaller.OpenDatabase(strPath2WorkingMSI, msiOpenDatabaseModeTransact)
With .OpenView(strQuery)
.Execute
.Close
End With
.Commit
If .GenerateTransform( _
objWindowsInstaller.OpenDatabase(strPath2OriginalMSI, msiOpenDatabaseModeReadOnly), _
strPath2MST _
) Then
WScript.Echo "Create [" & strPath2MST & "]."
Else
WScript.Echo "Can't create [" & strPath2MST & "]."
End If
End With
Set objWindowsInstaller = Nothing
objFSO.DeleteFile strPath2WorkingMSI, True
Set objFSO = Nothing
WScript.Quit 0
'=============================================================================
'=============================================================================
' Серый форум / vbscript: генерация пути для временного файла или папки
' (http://forum.script-coding.com/viewtopic.php?id=1221)
'=============================================================================
Function GetTemporaryName()
Const TemporaryFolder = 2
Dim strTempName
With WScript.CreateObject("Scripting.FileSystemObject")
Do
strTempName = .BuildPath(.GetSpecialFolder(TemporaryFolder), .GetTempName)
Loop While .FileExists(strTempName) Or .FolderExists(strTempName)
End With
GetTemporaryName = strTempName
End Function
'=============================================================================
|
|
Отправлено: 19:15, 25-05-2012 | #30 |
|
|
|
Участник сейчас на форуме |
|
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| [решено] Выбор файла ответов при установке Windows | Omnividente | Автоматическая установка Windows 2000/XP/2003 | 2 | 28-07-2010 18:53 | |
| [решено] При наличии файла ответов нет функции Восстановления (Repair, [R]) | toai | Автоматическая установка Windows 2000/XP/2003 | 33 | 27-03-2009 11:20 | |
| [решено] Два файла ответов и графическое меню | XDeveloper | Автоматическая установка Windows 2000/XP/2003 | 1 | 26-06-2008 13:47 | |
| Нужна помощь по настройкам файла ответов и его срабатыванию при установке | Wu-Tang | Хочу все знать | 97 | 28-05-2008 18:53 | |
| Vista unattend установка - вопрос о параметрах файла ответов | bekas | Автоматическая установка Windows 11 / 10 / 8 / 7 / Vista | 5 | 20-12-2006 11:43 | |
|