[xhgz]

Добрый день.

var
sc: Variant;
begin
CoInitialize(nil);
 sc:=CreateOLEObject('MSScriptControl.ScriptControl');
    SC.Language:='VBScript';
    SC.Timeout:=-1;
    SC.AllowUI:=True;
    SC.Eval('WScript.Echo "okidoki"');
            CoInitialize(nil);

Получаю eoleexception синтаксическая ошибка
почему так?

[lmikle]

Потому что для Eval нужно возвращаемое значение. У меня вот такой пример работает нормально:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  sc: Variant;
  S : OleVariant;
begin
//CoInitialize(nil);
  sc:=CreateOLEObject('MSScriptControl.ScriptControl');
  SC.Language:='VBScript';
  SC.Timeout:=-1;
  SC.AllowUI:=True;
  S := SC.Eval('2+2');
  ShowMessage(S);
end;

[xhgz]

В теории хочу выполнять код vbs на прямую
т.е. в вбил в мемо

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\zzz\zzz.txt" , "C:\zzz\2\", OverwriteExisting

и выполнилось

такое возможно?
без создание *.vbs и запуска его

[lmikle]

Да, только метод адо использовать другой, не Eval
Могу ошибаться, но там вроде еще есть Run, попробуй его.

[NumLock]

Код:

procedure ExecuteStatement(const Statement: WideString); safecall;

[xhgz]

Так работает

Код:

var
  sc: Variant;
begin
  sc:=CreateOLEObject('MSScriptControl.ScriptControl');
  SC.Language:='VBScript';
  SC.Timeout:=-1;
  SC.AllowUI:=True;
  SC.AddCode(Memo1.Text);
  SC.Run;

vbs

MsgBox "My Message Box Title",4,"My Message Box Message"

Но, после выходит ошибка EOleSysError with message "Недопустимое число параметров".

[NumLock]

Сообщение от xhgz

Но, после выходит ошибка EOleSysError with message "Недопустимое число параметров".

см. в писание методы:

procedure ExecuteStatement(const Statement: WideString); safecall;
function Run(const ProcedureName: WideString; var Parameters: PSafeArray): OleVariant; safecall;

>>

Код:

ExecuteStatement('MsgBox "My Message Box Title",4,"My Message Box Message"');