|
|
Как запустить скрипт VBS из 1с Ø |
☑ |
|
0
BlinOFF
23.12.04
✎
14:35
|
Вобщем вот такая процедура: Процедура ВыполнитьСкрипт(КоманднаяСтрока) Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl"); Скрипт.language="VBscript"; Текст="Sun Mess() |set WshShell=WScript.CreateObject(""WScript.Shell"") |WshShell Run """+КоманднаяСтрока+""", 0, true |End Sub"; Скрипт.AddCode(Текст); Текст=Скрипт.Run("Mess"); КонецПроцедуры //ВыполнитьСкрипт() Ошибка: Скрипт.AddCode(Текст);Ошибка компиляции Microsoft VBScript: Предполагается наличие окончания инструкции Подскажите в чем грабли?
|
|
|
1
Gloom
23.12.04
✎
14:49
|
WScript - доступен только в WSH, скрипт-контрол про него ничего не знает. И точку перед методом Run забыл... А вообще, для этого кода даже и ScriptControl не нужен - всё можно в 1цэ написать: WshShell=CreateObject("WScript.Shell"); WshShell.Run(КоманднаяСтрока, 0, 1);
|
|
|
2
BlinOFF
23.12.04
✎
15:15
|
Что-то не выполняется командная строка..:( а функция WshShell.Run(КоманднаяСтрока, 0, 1) возвращает 2
|
|
|
3
BlinOFF
23.12.04
✎
15:36
|
КоманднаяСтрока="net view >c:\net.txt"
|
|
|
4
Gloom
23.12.04
✎
15:49
|
Надо так: cmd.exe(или %comspec%) /c net view > ...
|
|
|
5
BlinOFF
23.12.04
✎
16:09
|
Спасибо...
|
|