Имя: Пароль:
1C
 
Как запустить скрипт 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
Спасибо...
Закон Брукера: Даже маленькая практика стоит большой теории.