Тема: VBS: Запуск файла с аргументом через контекстное меню проводника.
По работе приходится часто сталкиваться с необходимостью запуска файлов с аргументом. Чтобы упростить данный процесс я написал сие:
Install.vbs
'Скрипт добавляет команду "Запустить файл с параметром..."
'в контекстное меню проводника для файлов.
'Положите файл runner.exe в папку Windows
Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CLASSES_ROOT\*\shell\MenuText\Command\", "runner.exe " & chr(34) & "%1" & chr(34)
objShell.RegWrite "HKEY_CLASSES_ROOT\*\shell\MenuText\", "Запустить файл с параметром..."runner.vbs
set oArgs=wscript.Arguments
set WshShell = CreateObject("WScript.Shell")
if oArgs.Count <1 then
wscript.quit
end if
doit=InputBox ("Команда:"&vbCr & oArgs(0), "Запуск с параметром...")
WshShell.Run oArgs(0)+" "+doitФайл runner.vbs я скомпилировал в runner.ехе и положил его в папку с виндой.
Таким образом можно добавить в контекстное меню все что угодно.

