Ставлю timeout = 120 (2 минуты). Выдается сразу.
В чем он, в тысячных секудны? Как задать 2 минуты?
Описание MSSCriptControl не нашел, хотя и долго искал.

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

(1) ты точно уверен, что в МС?

ну проверь на 120 000

(3) проверять сложно из-за особенностей алгоритма

2*60*1000

(4)фигасе ... а просто набрать необходимое

(5) Как проверить в консоли кода?

Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
Скрипт.language="vbscript";
Скрипт.timeout = 120000; //120 секунд
           
КодВозврата = Скрипт.eval("???????????");

Что забить на место ??????, чтобы оно выполнялось бесконечно?

КодВозврата = Скрипт.eval("while (true)");

теперь вопрос ... зачем две секунды если скрипт бесконечный

это для джабы
для вбс Скрипт.ExecuteStatement("do while true:loop")
но оле замучает вопросом

(9) ну бесконечный цикл для проверки. (10) спасибо, счас попробую

(10) Ура!

Спасибо, Смахарба!

Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
Скрипт.language="vbscript";
Скрипт.timeout = 60000; //120 секунд        
КодВозврата = Скрипт.ExecuteStatement("do while true:loop");

Выдало ошибку через минуту:

{(5)}: Ошибка при вызове метода контекста (ExecuteStatement): Произошла исключительная ситуация (ScriptControl): The script was aborted because execution exceeded the specified timeout period.
КодВозврата = Скрипт.ExecuteStatement("do while true:loop");
по причине:
Произошла исключительная ситуация (ScriptControl): The script was aborted because execution exceeded the specified timeout period.

Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
Скрипт.language="vbscript";
Скрипт.timeout = 60000; //120 секунд        
Скрипт.ExecuteStatement("a=1");
Скрипт.ExecuteStatement("do while true:loop:a=0");
КодВозврата = Скрипт.Eval("a);