вот процедурка:

Процедура КнопкаВыполнитьНажатие(Кнопка)        

scrptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl");
scrptCtrl.Language = "vbscript";
scrptCtrl.AddCode("
|Function RemoveUserGroup()
|sUser = "+"""0824@gradient-alpha.local""
|sProga = "+"""c:\Program Files\1Cv77\BIN\1cv7s.exe config /D \\it11\Basulka""
|sPass = "+"""kbnk@dbyu"""+"&VBCRLF
|dim WshShell
|set WshShell = "+"WScript.CreateObject("+"""WScript.Shell"""+")
|rc=WshShell.Run("+"""runas /user:"""+" & sUser & "+""" """+" & CHR(34) & sProga & CHR(34), 2, FALSE)
|WScript.Sleep(250)
|WshShell.SendKeys sPass
|End Function");

scrptCtrl.Run("RemoveUserGroup");

КонецПроцедуры


при выполнении выподает с ошибкой:


Ошибка при вызове метода контекста (Run): Произошла исключительная ситуация (Ошибка выполнения Microsoft VBScript): Требуется объект: 'WScript'
scrptCtrl.Run("RemoveUserGroup");
по причине:
Произошла исключительная ситуация (Ошибка выполнения Microsoft VBScript): Требуется объект: 'WScript'


синтаксически все правильно, т.к. запустил vbs-файл руками с темже содержанием, ошибка в другом...в чем????

up

в моем воспаленном мозгу всплывает WScript.ScriptControl... но хз почему...

что-то мне подсказывает, что у тебя не всё в порядке с кавычками. Например в sProga = ...
Зачем &VBCRLF ? Если эмуляция энтера, то не оно
а ругается собственно на |set WshShell = "+"WScript.CreateObject("+"""WScript.Shell"""+")
напиши так: |Set WShell = CreateObject(""WScript.Shell"")

ИМХО без напильника не взлетит...

(0)собака порылась в том, что объект wscript доступен только при выполнении файла. хотя есть способы получить этот объект и в таком исполнении, но геморой

не взлетит, и нафига ранас, и даже если он, то есть все просче

scr = Новый COMОбъект("WScript.Shell");

sUser = "0824@gradient-alpha.local";
sProga = "c:\Program Files\1Cv77\BIN\1cv7s.exe config /D \\it11\Basulka"
....
scr.Run("<что тут тебе надо>", 2, Ложь);
//  или scr.Run("<что тут тебе надо>", 2, 0);
scr.Run("ping 127.0.0.1 -n 1", 0, Истина);
scr.SendKeys("sPass");

(6) ненужон тут сендкей вовсе

даже при ранас

Есть подозрение что делов в (8).

а так - Sonic писал какуюто "байду" (я даже проверял, работает все), для работы с конфигуратором, правдо изначально чисто для обновления, но по сути не только...

(10) да походу (0) уже пофик :))