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

tmp = inputbox("Введите имя программы (вместе с расширением), для которой нужного создать параметр NoStartPage", "<имя>.<расширение>")
if VarType(tmp) <> 0 then
	wsh1.RegWrite "HKCR\Applications\" + tmp + "\NoStartPage", "", "REG_SZ"
end if
