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

tmp1 = inputbox("Введите путь к апплету (необходимо использовать прямые слешы), который нужно отобразить в новом виде Панели управления, а также его имя", "http://www.onestyle.com.ua, специально для книги", "%systemroot%/System32/main.cpl")
if VarType(tmp1) = 0 then
	Wscript.Quit
end if
tmp2 = inputbox("Введите номер раздела (в шестнадцатеричной системе счисления): " + vbCrLf + vbCrLf + "1 — Оформление и персонализация;" + vbCrLf + "2 — Оборудование и звук;" + vbCrLf + "3 — Сеть и Интернет;" + vbCrLf + "4 — Оборудование и звук;" + vbCrLf + "5 — Система и ее обслуживание;" + vbCrLf + "6 — Часы, язык и регион;" + vbCrLf + "7 — Специальные возможности;" + vbCrLf + "8 — Программы;" + vbCrLf + "9 — Учетные записи пользователей и семейная безопасность;" + vbCrLf + "a — Безопасность;" + vbCrLf + "FFFFFFFF — отображать только в классической Панели управления.", "http://www.onestyle.com.ua, специально для книги", "1")
if VarType(tmp2) = 0 then
	Wscript.Quit
end if
wsh1.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Control Panel\Extended Properties\{305CA226-D286-468E-B848-2B2E8E697B74} 2\" + tmp1, tmp2, "REG_DWORD"
