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

tmp1 = inputbox("Укажите путь к значку, используемому для группировки окон проводника", "http://www.onestyle.com.ua, специально для книги", "shell32.dll,77")
if VarType(tmp1) = 0 then
	Wscript.Quit
end if
wsh1.RegWrite "HKCR\Applications\explorer.exe\TaskbarGroupIcon", tmp1, "REG_SZ"
