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

tmp1 = inputbox("Введите букву раздела, для которого вы хотите указать значок", "http://www.onestyle.com.ua, специально для книги", "c")
if VarType(tmp1) = 0 then
	Wscript.Quit
end if
tmp2 = inputbox("Введите путь к значку", "http://www.onestyle.com.ua, специально для книги", "shell32.dll,77")
if VarType(tmp2) = 0 then
	Wscript.Quit
end if
wsh1.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" + tmp1 + "\DefaultIcon\", tmp2, "REG_SZ"
