Из вариантов я знаю пустой цикл, но тут многие предлагают за тако расстреливать, как за GOTO.
А что в нем некошерного, кстати?
И какие есть кошерные решения? Или их нет? :))

(0) ну так чисто чтоб поржать:

    cmdLine= "ping -n " + Формат(ЧислоСекунд + 1, "ЧГ=0") + " 127.0.0.1";
    WshShell = Новый COMОбъект("WScript.Shell");
    WshShell.Run(cmdLine, 0, -1);

вот пятничное решение:
Берем плату stm32 к ней цепляем реле, провод из розетки через реле к человеку-таймеру

void main()
{

// Не забудь инициализировать GPIO здесь.

// Инициализация таймера
RCC_APB1PeriphClockCmd(RCC_APB1Periph_TIM3, ENABLE);

TIM_TimeBaseInitTypeDef timer_base;
TIM_TimeBaseStructInit(&timer_base);
timer_base.TIM_Prescaler = 15;
timer_base.TIM_Period = #Задержка в мкс#
TIM_TimeBaseInit(TIM3, &timer_base);

TIM_Cmd(TIM3, ENABLE);

NVIC_EnableIRQ(TIM3_IRQn);

}

void TIM3_IRQHandler(void)
{
тут подаем 5В на реле
}

(0) Вот здесь расписано:
http://kb.mista.ru/article.php?id=98

А пустой цикл - это зло, которое процессор на 100% может загрузить.

как-то так

<code>
Процедура Sleep(ВремяСекунд) Экспорт
    ЗапуститьПриложение("timeout /t " + ВремяСекунд, , Истина);
    // Для ТекСекунда = 1 По ВремяСекунд Цикл
    //    ПолучитьCOMОбъект("winmgmts:").ExecNotificationQuery("Select * from __instancemodificationevent where TargetInstance isa 'Win32_UTCTime'").NextEvent();
    //КонецЦикла;    
КонецПроцедуры
</code>

предупреждение, вопрос могут зависать и естественно не работают под сервером. В пинге нужно угадать с ип адресом, что особенно сложно когда много узлов РИБ или віпускается тиражируемое решение.
На мой взгляд самое правильное решение - это native api ВК