[ya158]

Iska,
Большое спасибо за поддержку и реальную помощь новичку в VBScript. Отдельное спасибо за прикрепление письма из лички - сам бы я, наверное, не справился бы. Отдельное спасибо за мудрый совет:

«как почесать задней левой ногой за правым ухом» »

Следуя ему я решил не заморачиваться с .wsf, а сделать ровно то, о чем спрашивал лично у Вас в ПМ.

Как и раньше отвечу сам себе (может кому-то пригодиться). Скрипт делал сам, поэтому он может быть не совсем кошерным, но работает .
Итак для перекодирования файла C:\1.txt из cp866 в ANSI и записи содержимого этого файла в реестр можно воспользоваться таким кодом:

Код:

mshta vbscript:execute("f=CreateObject(""Scripting.FileSystemObject"").GetFile(""C:\1.txt"").OpenAsTextStream(1).ReadAll():with CreateObject(""ADODB.Stream""):.Type=2:.Mode=3:.Open():.Charset=""windows-1251"":.WriteText(f):.Position=0:.Charset=""cp866"":S=.ReadText end with:a=CreateObject(""WScript.Shell"").RegWrite(""HKLM\NewKey\Param"",S,""REG_SZ""):close")

Получается интересный эффект. В C:\1.txt содержится несколько строк (это могут быть команды батника, например), а тип параметра - REG_SZ и данные записываются в одну строку. Если потом в regedit скопировать данные из этого параметра и вставить в текстовый файл, то данные опять разобьются на строки. Таким образом, в REG_SZ можно записать несколько строк, как в REG_MULTI_SZ. Может это давно известный факт, но я о таком не слышал.

[Iska]

Iska, Большое спасибо за поддержку и реальную помощь новичку в VBScript. Отдельное спасибо за прикрепление письма из лички - сам бы я, наверное, не справился бы. Отдельное спасибо за мудрый совет: »

ya158, завсегда пожалуйста. Рад был помочь. Обращайтесь, если что.

Если потом в regedit скопировать данные из этого параметра и вставить в текстовый файл, то данные опять разобьются на строки. Таким образом, в REG_SZ можно записать несколько строк, как в REG_MULTI_SZ. Может это давно известный факт, но я о таком не слышал. »

Ничего странного. Вы пишете в REG_SZ в числе прочего концы строк 0x0D, 0x0A. Затем читаете — и получаете их же.