Функция Выполнить()
    
    Сообщения.Очистить();
    Модуль   = Этот.Владелец;
    Параметр = Модуль.Параметр;
    Если (Параметр=0) Тогда
        Сообщить("Параметр не задан");
        Возврат 0;
    Конец;
    
    Настройка   = Главный.Определить(0,         Объекты.Дерево, Свойства.Наименование, "Настройка");
    Скрипты     = Настройка.Определить(0,       Объекты.Группа, Свойства.Наименование, "Скрипты");
    НовыйСкрипт = Настройка.Определить(Скрипты, Объекты.Скрипт, Свойства.Наименование, "Скрипт-"+Моменты.Текущий());
    
    Текст = "";
    Текст.Добавить("Если (Компьютеры.Простой<60) Тогда Возврат 0; Конец;");
    Текст.Добавить("В = Главный;");
    
    В = Параметр;
    Пока (В<>Главный) Цикл
        Р = 0;
        Если (В.Владелец<>В.Родитель) Тогда
            Р = "Р";        
        Конец;
        Текст.Вставить(2,"В = В.Определить("+Р+",Объекты."+Объекты.Строка(В.Тип())+",Свойства.Наименование,"""+В.Наименование+""");");
        Если (В.Владелец<>В.Родитель) Тогда
            Р2 = В.Родитель;
            Пока (Р2<>В.Владелец) Цикл
                Текст.Вставить(2,"Р = В.Определить(0,Объекты."+Объекты.Строка(Р2.Тип())+",Свойства.Наименование,"""+Р2.Наименование+""");");
                Р2 = Р2.Родитель;
            Конец;
        Конец;
        В=В.Владелец;
    Конец;
    
    Текст.Добавить("В.Выполнить(Действия.Выполнить);");
    НовыйСкрипт.Текст                     = Текст;
    НовыйСкрипт.'Интервал автовыполнения' = 30;
    Главный.Выбранный(НовыйСкрипт);

Конец