Запуск файла с аргументом через контекстное меню проводника.

По работе приходится часто сталкиваться с необходимостью запуска файлов с аргументом.
Чтобы упростить данный процесс я написал сие:
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.ехе и положил его в папку с виндой.
Таким образом можно добавить в контекстное меню все что угодно.