Рекурсивная распаковка

[Flasher]

Nick
Пож-та.
[cut]Я сразу понимаю, на какой строке нужные данные обрабатываются и включаю логику. В первый раз не обратил внимания, что ни один из операндов не является Booleen. Что такое "остановка по точкам" не представляю.
Редакторы разные. В зависимости от потребностей.[/cut]

[Iori]

Flasher,

Можешь модифицировать твой скрипт с TCKB (Распаковка выбранных архивов и/или архивов в структуре выбранных каталогов), так что-бы работал из под WinPE.
В данный момент, скрипт не запускается. Или запускается, но ничего не происходит.

[Flasher]

Iori
Раньше он работал? С какого момента перестал?

[Iori]

Flasher

Никогда не работал.

[Flasher]

Iori
А какие, например, скрипты работают?
Если рассматривать текущий вариант, то что будет, если закомментировать 36 строку?

[Iori]

Flasher

Другие скрипты не пробовал.

Мы про эту строчку говорим?

Код: Выделить всё

  If FSO.GetDrive(FSO.GetDriveName(WSH.FullName)).IsReady Then WSH.Sleep 500 : WSH.Quit

[Flasher]

Iori
Да.

[Iori]

Flasher

Line:73
Symbol:7
error: module not found
code: 8007007E
(null)

[Flasher]

Iori
Судя по номеру строки, ты удалил, а не закомментировал. Должна быть 74.
Вот здесь, боюсь, заменить простым алгоритмом не получится, побайтовая смена кодировки - не сахар. Даже не знаю, стоит за это браться.
А интегрировать %ProgramFiles%\Common Files\System\ado\msado15.dll там никак?

[Iori]

Flasher

Код: Выделить всё

 Next : WSS.Run "CScript.exe //NoLogo """ & WSH.ScriptFullName & """ " & List & Pars,0
'  If FSO.GetDrive(FSO.GetDriveName(WSH.FullName)).IsReady Then WSH.Sleep 500 : WSH.Quit
End If : Dim Reg, ShA, FSO, F, Ch, Cn, It

Вроде закомментировал.

А интегрировать %ProgramFiles%\Common Files\System\ado\msado15.dll там никак?

Здесь всё зависит от индивидуального инженера который собирает WinPE или другие LiveCD.

Даже не знаю, стоит за это браться.

А этот msado + библиотеки VB входят в виндоус начиная с XP?

[Flasher]

Вроде закомментировал.

Точно. Это у меня лишняя строчка.

А этот msado + библиотеки VB входят в виндоус начиная с XP?

Конечно. Библиотеки ADO — одни из наиболее востребованных элементов управления ActiveX.

[Iori]

Flasher

Я сейчас проверил несколько разных WinPe от разных авторов, но адо библиотек не нашёл не в одной. Папки существуют, но самих библиотек нет.

А если положить msado15.dll рядом со скриптом?

[Flasher]

Iori
Без реги толку ноль. И сомневаюсь, что на WinPE sxs работает. Можешь проверить на этом.

[Skif_off]

И сомневаюсь, что на WinPE sxs работает.

Аргументы сомнению какие-нибудь есть? Потому что работает (ну, по крайней мере "это").

Iori
Немало сборок используют утилиту Sh от Nikzzzz, можно попробовать с её помощью: сделать SFX с msado15.dll и msdart.dll (копирование+регистрация) и дописать его в секцию [AutoRun]. Это, пожалуй, самый простой способ - нет нужды ковыряться в WIM и он не будет зависеть от обновлений автора сборки. Как-то так:
[cut]ADO.shl

Код: Выделить всё

[AutoRun]
hide=yes
exe=\ADO.exe

Конфиг 7zSFX

Код: Выделить всё

;!@Install@!UTF-8!
InstallPath="%WinDir%\System32"
GUIMode="2"
RunProgram="regsvr32 /s msado15.dll"
;!@InstallEnd@!

[/cut]

[Iori]

Skif_off

Решение очень хорошее. Спасибо