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

tmp1 = inputbox("Введите имя раздела, параметр которого нужно изменить", "http://www.onestyle.com.ua, специально для книги", "*")
if VarType(tmp1) = 0 then
	Wscript.Quit
end if
tmp2 = inputbox("Введите значение параметра: " + vbCrLf + vbCrLf + "1. при перемещении файла между папками выполнить его копирование" + vbCrLf + "2. выполнить перемещение файла" + vbCrLf + "4. выполнить создание его ярлыка", "http://www.onestyle.com.ua, специально для книги", "1")
if VarType(tmp2) = 0 then
	Wscript.Quit
end if
wsh1.RegWrite "HKCR\" + tmp1 + "\DEFAULTDROPEFFECT", tmp2, "REG_DWORD"
