// Скрипт по перезапуску компьтера
// пытаемся загрузить страницу из интернет, если не получается, то перезапускаем компьютер
Если (Окна.Активно()=1)           Тогда Возврат; Конец; // если форма программы активна, то ничего не делаем
Если (Файлы.Есть("http://ya.ru")) Тогда Возврат; Конец;

// добавим в статистику момент перезапуска
Настройка          = Главный.Определить(0,                  Объекты.Дерево, Свойства.Наименование, "Настройка");
ГруппаСтатистики   = Настройка.Определить(0,                Объекты.Группа, Свойства.Наименование, "Статистика");
СписокПерезапусков = Настройка.Определить(ГруппаСтатистики, Объекты.Список, Свойства.Наименование, "Перезапуски компьютера");
СписокПерезапусков.Колонки.Определить("Момент", Типы.Момент, 120, 1, 0);
Объект = СписокПерезапусков.Определить(0, Объекты.Объект, Свойства.Момент, Моменты.Текущий);

// перезапускаем компьютер
Компьютеры.Выключить(1);