В данном случае выполняется стандартная для всех версий Windows команда ping на IP-адрес, ответа от которого не будет и выставляется время ожидания отклика в секундах.
В данном примере задержка составляет 5 секунд.

 

 

Секунды = 5; // задержка 5 секунд
СтрокаЗапроса = "ping -n 1 -w "+Формат(1000*Секунды, "ЧГ=0")+" 127.255.255.255"; // с этим IP стабильно работает по Windows 7
Соединение = Новый COMОбъект("WScript.Shell");
Соединение.Run(СтрокаЗапроса, 0, -1);


Время задержки в секундах


СтрокаЗапроса = "ping -n 1 -w "+Формат(1000*Задержка, "ЧГ=0")+" 127.255.255.255";

Формируем строку запроса, а точнее пингуем адрес 127.255.255.255, время ожидания отклика 1000 миллисекунд*Задержка.