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

tmp1 = inputbox("Введите имя апплета CPL, который нужно скрыть", "http://www.onestyle.com.ua, специально для книги", "main.cpl")
if VarType(tmp1) = 0 then
	Wscript.Quit
end if

wsh1.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Control Panel\don't load\" + tmp1, "", "REG_SZ"
