Настройка реестра Windows
Функция ОтключитьАвтоматическоеОбновлениеWindows()
Путь = "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU";
Рез1 = Числа.Целое(Компьютеры.Реестр.Получить(Путь,"NoAutoUpdate"));
Рез2 = Числа.Целое(Компьютеры.Реестр.Получить(Путь,"AUOptions"));
Если (Рез1=1)И(Рез2=5) Тогда
Сообщить("Автоматическое обновление Windows уже было отключено");
Возврат 0;
Конец;
Рез1 = Компьютеры.Реестр.Установить(Путь,"NoAutoUpdate",1);
Рез2 = Компьютеры.Реестр.Установить(Путь,"AUOptions",5);
Если (Рез1=1)И(Рез2=1) Тогда
Сообщить("Автоматическое обновление Windows отключено, перезагрузите компьютер");
Возврат 1;
Конец;
Сообщить("Нет доступа к реестру, надо запустить программу под администратором");
Возврат 0;
Конец
Функция РазрешитьПерезагрузкуБезПодтверждения()
Путь = "HKCU\Control Panel\Desktop";
Ключ = "AutoEndTasks";
Рез1 = Числа.Целое(Компьютеры.Реестр.Получить(Путь,Ключ));
Если (Рез1=1) Тогда
Сообщить("Перезагрузка без подтверждения уже включена");
Возврат 0;
Конец;
Рез1 = Компьютеры.Реестр.Установить(Путь,Ключ,1);
Если (Рез1=1) Тогда
Сообщить("Перезагрузка без подтверждения включена");
Возврат 1;
Конец;
Сообщить("Нет доступа к реестру, надо запустить программу под администратором");
Возврат 0;
Конец
Функция Выполнить()
ОтключитьАвтоматическоеОбновлениеWindows();
РазрешитьПерезагрузкуБезПодтверждения();
Конец