Хочу сделать простейшее действие - показать MsgBox. Вылетает исключение. Что я не так делаю?

 Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
 Скрипт.Language="vbscript";
   
 Текст = "Сообщение";
 Заголовок = "Заголовок";
 ТекстСкрипта = "MsgBox(""" + Текст + """, 0, """ + Заголовок + """)";
 Результат = Скрипт.Run(ТекстСкрипта);

 Сообщить(Результат);

А вот так сработало:

Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
Скрипт.Language="vbscript";
Текст = "Сообщение";
Заголовок = "Заголовок";
ТекстСкрипта = "MsgBox(""" + Текст + """, 0, """ + Заголовок + """)";
   
Скрипт.AddCode("
|Function Main()
|    Main = " + ТекстСкрипта + "
|End Function");
   
Результат = Скрипт.Run("Main");
Сообщить(Результат);

(0) В первом случае, вероятно, должен использоваться метод ExecuteStatement.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnexpvb/html/usingscriptcontrolmethods.asp

Не работает. Изменил в коде:
...
ТекстСкрипта = "MsgBox(""" + Текст + """, 36, """ + Заголовок + """)";

//Скрипт.AddCode("
//|Function Main()
//|    Main = " + ТекстСкрипта + "
//|End Function");
//
//Результат = Скрипт.Run("Main");

Результат = Скрипт.ExecuteStatement(ТекстСкрипта);
...

И сразу попутно вопрос - может кто знает как задать таймаут для MsgBox и значение по таймауту?

Нашёл! Спасибо WiFi. Оказывается надо использовать Eval. Во как:

Результат = Скрипт.Eval(ТекстСкрипта);

Для мсгбокса нет таймаута, нужен Popyp объекта WScript.Shell но если "напрямую" из 1С к этому объекту то таймаута небудет, через МССкрипт будет

(5) будем знать ;)

(6) А можно пример кода накидать?

Я так понимаю, что надо из MSScript слепить WScript.Shell ?

В самом методе MsgBox нет такого параметра Timeout:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/ae073d50-e4a4-4e23-8e46-0cb1369965e7.asp

scr =Новый COMОбъект("MSScriptControl.ScriptControl");
scr.Language="javascript";
text = "'Сообщение'";
head = "'Заголовок'";
scr.ExecuteStatement("var WSHShell=new ActiveXObject('WScript.Shell')");
//Но просче так
//WSHShell=Новый COMОбъект("WScript.Shell");
//scr.AddObject("WSHShell",WSHShell);
//или еще проще (всего две строчки)
//WSHShell=Новый COMОбъект("WScript.Shell");
//WSHShell.Popup(Text,Timing,Head,3);
scr.ExecuteStatement("Text=" + text);
scr.ExecuteStatement("Head=" + head);
scr.ExecuteStatement("Timing=" + 2);
scr.Eval("WSHShell.Popup(Text,Timing,Head,3);");
...
Незнаю как в 8-ке, но в 7-ке таймаут небудет работать

А я делаю вот так. И к меня ругается на CreateObject. Вот код:

Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
Скрипт.Language="vbscript";
Скрипт.AddCode("
|Function Main()
|  Obj=CteateObject(""WScript.Shell"")
|  Main = Obj.Popup(""" + Текст + """, " + Формат(Таймаут, "ДП=0") + ", """ + Заголовок + """, 32)
|End Function");
Результат = Скрипт.Run("Main");
Сообщить(Результат);

CteateObject ?

(3) у тебя здесь не сработало, т.к. скобки у MsgBox не нужны. Так правильно:
ТекстСкрипта = "MsgBox """ + Текст + """, 36, """ + Заголовок + """";
Результат = Скрипт.ExecuteStatement(ТекстСкрипта);
Правда Результата не будет никакого. Только Box и появится ;)
(5) а здесь сработало, т.к. MsgBox со скобками возвращает значение.
Вывод:
Run - используется для вызова процедуры,
ExecuteStatement - для выполнения кода, который не возвращает значения,
Eval - для вычисления значения.

(13) :)))

(13) Но. А чо?

(16) Еще внимательней глянь...

(16) Не видишь?

Да я уж вижу. New ActiveX

В примерах, кстати есть его использование:

'создаётся объект типа "IShellDispatch":
Set objShellApp = CreateObject("Shell.Application")

(19) Нет, это я применил чтобы с кавычками не париться, а апострофы использовать
а у тебя CteateObject <> CreateObject

аааа.... точно! Сенкс!

+(21) new ActiveXObject это javascript...

Но таймаута всё-равно нету. Нигде.

А зачем тебе через мсскрипт, есть ведь предупреждение ?

Оно без иконок.

Warning, Information и т.д.

(26) Есть способ, но тоже проблематичный...
А почему-бы модальную форму не применить? А тайминг можно и системный задействовать

На форму кнопку(скрытую) с хоткеем F12 и текст скрытый с формулой Закрыть
...
Перем т;
//*******************************************
Функция Закрывать()
   Форма.Заголовок(ТекущееВремя());
   Если т<_GetPerformanceCounter()-10000 Тогда
       Форма.Закрыть();
       Возврат т;
   КонецЕсли;
   Форма.Обновить();
КонецФункции    // Закрывать
Процедура ПриОткрытии()
   т=_GetPerformanceCounter();
   WSHShell=СоздатьОбъект("WScript.Shell");
   WSHShell.SendKeys("{F12}");
КонецПроцедуры    // ПриОткрытии
...

(28) Не, с модальной формой - это не то. Хотелось чем-то типа MsgBox. Может кто-нибудь знает способ вызвать системный диалог с таймаутом и значением по умолчанию?

(30) Дак вот и попробуй (29) и увидишь что выйдет, кнопок с действиями сколь угодно... и иконок...страшащих картинок...

Спасибо, но это не то. Это надо форму, то-сё... MsgBox было бы элегантней, ну да видать не судьба.