[Iska]

ya158, ответ на главный вопрос как обычно остался скромно обойдён вниманием: зачем, собственно?

[ya158]

Iska,
Ну, например, чтобы не делать отдельный vbs-скрипт, а закреплять программу на таскбаре из батника или SFX-архива.

Стесняюсь спросить, а по сабжу есть какие-нибудь мысли?

[Iska]

Ну, например, чтобы не делать отдельный vbs-скрипт, а закреплять программу на таскбаре из батника или SFX-архива. »

ya158, ровно тем же образом можно делать сие из скрипта, без применения промежуточного пакетного файла или самораспаковывающегося архива.

Стесняюсь спросить, а по сабжу есть какие-нибудь мысли? »

Я их изложил. По поводу Вашей хотелки: если кто восхочет — сделает Вам реализацию.

[ya158]

ровно тем же образом можно делать сие из скрипта »

Подскажите, плиз, как это сделать?
Я не специалист в VBScript/Jscript, поэтому использую батники. Помимо этого батник можно записать в одну строку => можно не создавать отдельный файл. Я в курсе, что можно сделать комбинированный скрипт вида:

Код:

@set @x=0 /*
@echo off
cmdow @ /HID

Батник
wscript  //nologo /e:jscript "%~f0"
Батник
*/
VBScript

Но так получается внедрить только один скрипт. При помощи же mshta можно в батник вставить различные VBScript/Jscript. Вот несколько примеров http://www.dostips.com/forum/viewtopic.php?f=3&t=5311

[Iska]

Но так получается внедрить только один скрипт. »

Один файл, много скриптов: WSH: пишем сценарии в формате WSF.

[ya158]

Iska,
Спасибо, конечно за ссылку, но я там не увидел батников. Да и честно сказать, я не специалист в VBScript/Jscript,, а тут еще надо разбираться с WSF .
Но самое главное - мне надо записать команды в одну строку, а не создавать ещё один файл. Это даёт возможность записать такую строку в реестре напрямую, а не запускать из реестра какой-либо дополнительный файл.

[Iska]

ya158, Вы спросили, как сие можно сделать, я Вам показал — как: написать сценарий в формате .wsf, один-единственный файл, в котором может содержаться произвольное количество заданий на VBScript/JScript.

Это даёт возможность записать такую строку в реестре напрямую »

1. Не вижу никаких препятствий для того, чтобы делать сие из .wsf.
2. Напрямую — это сказки, дружище. Особенно в реестр. Попробуйте записать для исполнения в реестр что-нибудь наподобие такого: CMD/BAT: получение формата дата-время для имени файла или такого: CMD/BAT: использование стандартных GUI-диалогов выбора папки и файла. Куча счастья и радости в процессе будет обеспечена, гарантирую.

И разбираться с VBScript/JScript Вам придётся. А как же иначе?! Ведь именно их Вы собираетесь пользовать в «mshta.exe».

[ya158]

Всё таки с помощью wrace я получил то, что хотел.
Выложу здесь, может кому пригодится.

VBScript

Код:

mshta.exe vbscript:Execute("dim exe: exe=""%WinDir%\explorer.exe"":Set fs = CreateObject(""scripting.Filesystemobject""):Set colVerbs = CreateObject(""Shell.Application"").Namespace(fs.GetParentFolderName(exe)).ParseName(fs.GetFileName(exe)).Verbs:For Each objVerb in colVerbs: If Mid(Replace(objVerb.name, ""&"", """"),3,7) = ""крепить"" Then objVerb.DoIt: exe = objVerb.name End If: Next:close")

JavaScript

Код:

mshta.exe "javascript:var fs = new ActiveXObject('Scripting.FileSystemObject'); var exe='C:\\Windows\\explorer.exe'; var colVerbs = new ActiveXObject('Shell.Application').Namespace(fs.GetParentFolderName(exe)).ParseName(fs.GetFileName(exe)).Verbs(); var k=-1; for(var i=colVerbs.Count; --i>=0;){  var objVerb=colVerbs.Item(i).name.replace('&', ''); if (objVerb.substr(2,7) == 'крепить'){ k=i; colVerbs.Item(k).DoIt(); } } close(new ActiveXObject('WScript.Shell').Popup(k,0,'Title',16));"

[Iska]

Из письма в PM:

Скрытый текст

Здравствуйте! Прошу помощи в решении следующей задачи. Мне надо с помощью mshta считать текст из текстового файла и записать в реестр. Текстовый файл состоит из нескольких строк. В принципе работает следующий скрипт: Код: mshta vbscript:close(CreateObject("WScript.Shell").RegWrite("HKLM\New\Param",CreateObject("Scripting.FileSystemObject").GetFile("c:\1.txt").OpenAsTextStream(1).ReadAll(),"REG_SZ")) Но заковыка в том, что c:\1.txt в кодировке cp866. Поэтому в HKLM\New\Param попадают кракозябры. Поискал как с помощью VBSscript перекодировать файл из cp866 в ANSI и нашел этот Ваш пост. В нем решается похожая задача. Я попытался сделать что-то вроде Код: mshta vbscript:execute("set f=CreateObject(""Scripting.FileSystemObject""):set a=(CreateObject(""ADODB.Stream"")):a.Type=2:a.Mode=3:a.Open():a.Charset=""windows-1251"": a.LoadFromFile(""C:\1.txt""):T=a.ReadText():a.Position=0:a.Charset=""cp866"":a.WriteText(T):a.SaveToFile(""C:\UTF-8.txt""):a.Close():close") Но вылетает ошибка: Настройки безопасности данного компьютера запрещают доступ к источнику данных в другом домене Прошу помощи в написании рабочего скрипта на VBScript. Заранее спасибо. С уважением, Роман.

Коллега, я уже излагал Вам свои мысли на тему «как почесать задней левой ногой за правым ухом» в данной теме выше.

С тех пор ничего не изменилось.