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

tmp1 = inputbox("Введите значение параметра MenuShowDelay", "http://www.onestyle.com.ua, специально для книги", "0")
if VarType(tmp1) = 0 then
	Wscript.Quit
end if
wsh1.RegWrite "HKCU\Control Panel\Desktop\MenuShowDelay", tmp1, "REG_SZ"
