Функция ОтключитьАвтоматическоеОбновление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();
    РазрешитьПерезагрузкуБезПодтверждения();

Конец