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

tmp1 = inputbox("Введите расширение файла", "http://www.onestyle.com.ua, специально для книги", ".txt")
if VarType(tmp1) = 0 then
	Wscript.Quit
end if
tmp2 = inputbox("Введите имя раздела поиска (music, picture, document, video, recordedtv, email, communication, contact, link, program, calendar, document)", "http://www.onestyle.com.ua, специально для книги", "document")
if VarType(tmp2) = 0 then
	Wscript.Quit
end if
wsh1.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\KindMap\" + tmp1, tmp2, "REG_SZ"
