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

tmp = inputbox("Введите номер добавляемой панели (по умолчанию номер языковой панели)", "http://www.onestyle.com.ua, специально для книги", "{540D8A8B-1C3F-4E32-8132-530F6A502090}")
if VarType(tmp) <> 0 then
	wsh1.RegWrite "HKCR\CLSID\" + tmp + "\Implemented Categories\{00021492-0000-0000-C000-000000000046}\", "", "REG_SZ"
end if
