сейчас делаю так

Процедура глПауза(Сек)
   scr = СоздатьОбъект("WScript.Shell");
   scr.Run("ping 127.0.0.1 -n "+СокрЛП(Число(Сек)+1),0,1);
КонецПроцедуры

но у меня есть пример батника который делает так

   cscript //nologo /e:jscript "%~f0" 5000
*/
WScript.Sleep(WScript.Arguments(0))

как бы такую штуку вместо пинга засунуть подскажите

5000 время в милисекундах

Функция ПаузаСекунды(Секи)
   Попытка
       scrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
       scrptCtrl.language="vbscript";
       КодСкрипта="
       |Function GetPause()
       |Set WScript = CreateObject(""WScript.Shell"")
       |WScript.Sleep (";
       КодСкрипта=КодСкрипта+Строка(Секи*1000)+")";
       КодСкрипта=КодСкрипта+"
       |GetPause = """"
       |End Function
       |";
       scrptCtrl.addcode(КодСкрипта);
       Рез = ScrptCtrl.Run("GetPause");
   Исключение
       Возврат "";
   КонецПопытки;
   Возврат Рез;
КонецФункции

вот такую штуку нашел но
Рез = ScrptCtrl.Run("GetPause");
{D:\1C\ТЕСТПАУЗЫ.ERT(26)}: Ошибка выполнения Microsoft VBScript: Объект не поддерживает это свойство или метод: 'WScript.Sleep'

глWScript = СоздатьОбъект("WScript.Shell"); // Где то в глобальнике

глWScript.Run(КаталогИБ() + "sleep.vbs", 0, -1); // В нужном месте

Файл sleep.vbs (1 строка):
WScript.sleep 2000

слип это зло. обсуждалось мильён раз. меняй алгоритм

а без файла скрипта можно?

|Set WScript = CreateObject(""WScript.Shell"")  - это лишнее
Объект WScript можно использовать в сценарии WSH сразу, без какого-либо предварительного описания или создания, т.к. его экземпляр создаётся сервером сценариев (CScript.exe или WScript.exe) автоматически.

(5) У меня не получилось.

(6)
Функция ПаузаСекунды(Секи)
   //Попытка
       scrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
       scrptCtrl.language="vbscript";
       КодСкрипта="
       |Function GetPause()
       |WScript.Sleep (";
       КодСкрипта=КодСкрипта+Строка(Секи*1000)+")";
       КодСкрипта=КодСкрипта+"
       |GetPause = """"
       |End Function
       |";
       scrptCtrl.addcode(КодСкрипта);
       Рез = ScrptCtrl.Run("GetPause");
   //Исключение
   //    Возврат "";
   //КонецПопытки;
   Возврат Рез;
КонецФункции

Рез = ScrptCtrl.Run("GetPause");
{D:\1C\ТЕСТПАУЗЫ.ERT(25)}: Ошибка выполнения Microsoft VBScript: Требуется объект: 'WScript'

Лаконично - по нраву мне. Автор - не я.

Wrapper=Новый ComОбъект("DynamicWrapper");
Wrapper.Register("KERNEL32.DLL","Sleep","i=l","f=s");
Wrapper.Sleep(мсек);

(9) вся система висит во время таких пауз... уф не годно

а просто
ВвестиСтроку("Ждем",,,, 1)
не вариант? )

в КЗ есть статья по организации паузы

(11) и по рукам линейкой...

+12 Книга знаний: Перепроведение документов в 1С:Предприятие без блокировки других пользователей

(13) ты свою ссылку смотрел? )) так-то этот пример там есть

(15) пох, за всю статью не отвечаю, но раздачу бы устроил за твой пример )

(16) а аргументация?
сильно подозреваю что ты не в курсе как ввестистроку работает

(14) хмм делать паузы чтобы база не тормозила это идея конечно... впринципе кучу задач можно так размазать во времени... интересно так то

а чем пинг не устраивает?

(9) а DEP не ругается?

(19) не красивый код только и всего(= я думаю тема исчерпана, неплохой варик вбс файл запускать, пинг, скопировать слип.exe, ну и предупреждение впринципе тоже может сойти.

а так:
Функция глПауза(ЧислоСек) Экспорт
   Система=СоздатьОбъект("Система");
   Для н=1 По ЧислоСек Цикл
       Система.Уснуть(1000);
       Состояние("Пауза : "+Строка(н)+" сек.");
   КонецЦикла;
КонецФункции

Паравда надо что 1С++ была загружена.