Напомните плиз как там слипом тормознуть модуль на пяток секунд
 

собственно сабж

оСистема = СоздатьОбъект("Система");
оСистема.Sleep(5000);

а че гетперформанскаунтер уже не работает?

Да мне в 7.7 . Через Wscript

3-drums2004 > и я про 7.7

и даже я про 7.7

Издеваемся ? Нет там такого объекта и не было никогда .

(6) _getPerformanceCounter()

6-drums2004 > Ну-ну.
Процедура ВыбратьКатегориюЦенИзДругойБазы()
Перем идКатЦен, Представление, н;

Если ТипЗначенияСтр(сзКатЦенИзДругойБазы) <> "СписокЗначений" Тогда
Если ЗапроситьКатегорииЦенИзДругойБазы() = 0 Тогда
Возврат;
КонецЕсли;
ОбъектП.ОткрытьОкноСообщения("Ожидание ответа");
оСистема = СоздатьОбъект("Система");
Пока ТипЗначенияСтр(сзКатЦенИзДругойБазы) <> "СписокЗначений" Цикл
оСистема.Sleep(100);
КонецЦикла;
КонецЕсли;
ОбъектП.ЗакрытьОкноСообщения();

Если ТипЗначенияСтр(сзКатЦенИзДругойБазы) <> "СписокЗначений" Тогда
Возврат;
КонецЕсли;

идКатЦен = тзКатегорииЦен.идКатегорияВДругойБазе;
н = сзКатЦенИзДругойБазы.НайтиЗначение(идКатЦен);
Если сзКатЦенИзДругойБазы.ВыбратьЗначение(идКатЦен, "Категория цен", н,, 0) = 0 Тогда
Возврат;
КонецЕсли;

сзКатЦенИзДругойБазы.ПолучитьЗначение(н, Представление);

тзКатегорииЦен.идКатегорияВДругойБазе = идКатЦен;
тзКатегорииЦен.КатегорияВДругойБазе = Представление;
КонецПроцедуры

Это у вас ВК какая-то стоит . Нету в семерке обьектов таких .

9-drums2004 > [em]ВК какая-то стоит [/em] - разумеется. 1С++ называется. А у вас ее, разве, до сих пор нету?

Нет . И ставить на 15 баз нет желания .Я спрашивал как через WScript тормознуть

а зачем скрипт, просто предупреждение на 5 секунд не?

11-drums2004 > [em]И ставить на 15 баз нет желания [/em] - безумно сложное занятие - копировать файлик, ага.

9-drums2004 > [url]http://g.zeos.in/?q=_getPerformanceCounter([/url])

[url]http://help1c.com/faq/view/584.html[/url]