Set wsh1 = WScript.CreateObject("WScript.Shell")

tmp1 = inputbox("Введите имя нового элемента контекстного меню", "http://www.onestyle.com.ua, специально для книги", "тест")
if VarType(tmp1) = 0 then
	WScript.Quit
end if
tmp2 = inputbox("Введите команду нового элемента контекстного меню", "http://www.onestyle.com.ua, специально для книги", "cmd.exe")
if VarType(tmp2) = 0 then
	WScript.Quit
end if
wsh1.RegWrite "HKCR\CLSID\{2559a1f4-21d7-11d4-bdaf-00c04f60b9f0}\shell\" + tmp1 + "\command\", tmp2, "REG_EXPAND_SZ"
