Set wsh1 = WScript.CreateObject("WScript.Shell")
tmp = inputbox("Введите нужное значение параметра InitialKeyboardIndicators." + vbCrLf + vbCrLf + "0. Все клавиши отключены" + vbCrLf + "1. Включены: Caps Lock" + vbCrLf + "2. Включены: Num Lock" + vbCrLf + "3. Включены: Caps Lock и Num Lock" + vbCrLf + "4. Включены: Scroll Lock" + vbCrLf + "5. Включены: Caps Lock и Scroll Lock" + vbCrLf + "6. Включены: Num Lock и Scroll Lock" + vbCrLf + "7. Включены: Caps Lock, Num Lock и Scroll Lock", "http://www.onestyle.com.ua, специально для книги", "2")
if VarType(tmp) <> 0 then
	x = wsh1.run ("cmd /K reg add " + chr(34) + "HKU\.DEFAULT\Control Panel\Keyboard" + chr(34) + " /v InitialKeyboardIndicators /t REG_SZ /d " + chr(34) + tmp + chr(34) + " /f")
end if
