[Iska]

m0nkrus, попроще бы. И пошагово.

[m0nkrus]

Iska, куда уж проще? Тут шаг всего один! При запуске команды cscript WiMakCab.vbs acad.msi Data1 создается файл Data1.DDF в котором в определенном формате (текстовик) должна быть перечислены инфа о всех файлах, устанавливаемых msi-инсталлером. В данном конкретном случае инфа дается о 2456 файлах. Только вот должна быть информация о 3329 файлах. Вот эта почти тысяча выпавших файлов впоследствии не будет упакована в cab-архив. Смысл перепаковки теряется.

[DJ Mogarych]

Судя по всему, если именование файлов различное, то берётся только один формат.
Я для перепаковки пользовался Wix toolset.

[m0nkrus]

Судя по всему, если именование файлов различное, то берётся только один формат. »

Гениальная мысль! Как же я до нее сам не дошел?!
Задача в том, чтобы не озвучить очевидное, а решить проблему как-то, если это возможно, подправив код скрипта.

Я для перепаковки пользовался Wix toolset. »

И как им пользоваться? Скачал. Установил. В меню Пуск в папке WiX Toolset v3.11 ссылки только на мануалы. Какого-либо исполняемого файла нет.

[Iska]

m0nkrus, насколько я понимаю, искомое здесь:

Код:

' Fetch each file and request the source path, then verify the source path
Dim fileKey, fileName, folder, sourcePath, delim, message, attributes
Do
	Set record = view.Fetch : CheckError
	If record Is Nothing Then Exit Do
	fileKey    = record.StringData(1)
	fileName   = record.StringData(2)
	folder     = record.StringData(3)
	sequence   = record.IntegerData(4)
	attributes = record.IntegerData(5)
	If (attributes And msidbFileAttributesNoncompressed) = 0 Then
		If sequence <= lastSequence Then
			If Not sequenceFile Then Fail "Duplicate sequence numbers in File table, use /S option"
			sequence = lastSequence + 1
			record.IntegerData(4) = sequence
			view.Modify msiViewModifyUpdate, record
		End If
		lastSequence = sequence
		delim = InStr(1, fileName, "|", vbTextCompare)
		If delim <> 0 Then
			If shortNames Then fileName = Left(fileName, delim-1) Else fileName = Right(fileName, Len(fileName) - delim)
		End If
		sourcePath = session.SourcePath(folder) & fileName
		outStream.WriteLine """" & sourcePath & """" & " " & fileKey
		If installer.FileAttributes(sourcePath) = -1 Then message = message & vbNewLine & sourcePath
	End If
Loop
outStream.Close
REM Wscript.Echo "SourceDir = " & session.Property("SourceDir")
If Not IsEmpty(message) Then Fail "The following files were not available:" & message

Какие «файлы» попадают в выдачу? Только те «файлы», у которых поле Attributes содержит значение с не установленным семнадцатым битом (0x2000).

Т.е., вот это:

Код:

Const msidbFileAttributesNoncompressed = &h00002000

и вот это:

Код:

If (attributes And msidbFileAttributesNoncompressed) = 0 Then
    …
End If

приводит к тому, что все файлы, в поле Attributes которых содержатся значения 8192 или 8704, в выдачу не попадут.

[m0nkrus]

Iska, я, ксожалению, в языке VBS не в зуб ногой. Это как-то можно исправить?

В выдачу не попадают файлы, типа тех, что во втором блоке в кода в шапке.

[Iska]

m0nkrus, я бы исправил, если бы знал, что нужно исправлять и что нужно исправлять. И до́́лжно ли исправлять что-то. Вот в чём дело.

Если достаточно будет того, чтобы списки всех безусловно помещались в в файл .ddf — просто закомментируйте само условие апострофами:

Код:

	' If (attributes And msidbFileAttributesNoncompressed) = 0 Then
		…
	' End If

[m0nkrus]

Iska, да, это решает проблему полного заполнения файла ddf. Увы, не решило проблему с упаковкой...
Закоментил, запустил команду cscript WiMakCab.vbs /C /U acad.msi Data1, разумеется при наличии всех файлов россыпью. Примерно на 75% обрабоки скрипт просто вырубился.
Попробовал на инсталлере меньшего размера. Там всего пять файлов выпадают. Обычно я эти пять файлов просто кладу рядом с инсталлером и он при установке их подхватывает. Так вот, попробовал - все упаковалось. Запускаю готовый инсталлер, но он не смотря на то, что все файлы упакованы в cab (5 файлов россыпью не добавлял) все равно просит наличия пресловутых пяти файлов...

Я бы дал вам этот мелкий инсталлер, да только он не работает самостоятельно - только в составе пакета.
Если есть желание покопаться, то вот техзадача:

1. Скачать https://trial2.autodesk.com/NetSWDLD...it_dlm.sfx.exe
2. Запустить AutoCAD_2021_English_Win_64bit_dlm.sfx.exe, чтобы получить распакованный дистрибутив.
3. По пути ..\x64\acad\ лежит тот самый инсталлер, что я прилагал выше, но уже полный, со всеми файлами россыпью. Необходимо его при помощи скрипта вывести на пару msi + cab без файлов россыпью. И чтобы с этого инсталлера удалось поставить продукт.

[Iska]

Увы, мне сейчас некуда даже вполовину меньший объём помещать . Максимум того. над чем я могу поиграться — msi-инсталлятор от 7-Zip. Можете на его основе сделать описание того, «как должно быть»?