如何返回VBSCRIPT里面的的值？

Question

用DELPHI传参数给VBSCRIPT脚本， 然后再取得返回值，好像是用要声明一个 IDispatch 接口吧， 但我用不得。谁有源码，给参考一下好吗？谢谢 分不够再加

Answer 1

你的vbs函数是在哪里？是用于asp么？如果是直接传参数就行了。

Answer 2

浏览器控件好像可以跟网页（vbscript）传递参数

Answer 3

不是ASP ， 
比如我在脚本里面实现了对某个文件名的修改，然后我要把这个文件名称返回给DELPHI程序中继续调用。这是脚本的主过程，DELPHI 程序在某一时刻，就调用这个脚本。我把很多参数传给了脚本， 因为我要用脚本来实现各种各样的业务逻辑Sub main(tpath,qTempPath,qTpath, qFileName,relatExt)
Dim str 
str = DelLastSeparate(qTpath,"\")if not fso.FolderExists(str) then
  'msgbox "not net "
  if left(str,2) = "\\" then
    str = right(str,len(str)-2)
    call CreateNetDir(str)
  else
    call createdir(str)
  end if
end if
'msgbox "qtempPath" & qtempPath 
fso.CopyFile qTempPath,qTpath, true
if relatExt <> "" then
  call processRelatFile(qTemppath,qTpath,relatExt)
End if
End Sub
// main 里面的函数， 如果有修改的话，我想返回到DELPHI里面继续使用
//DELPHI 里面是这样调用的，但是不能返回脚本里面的修改值
function runscript:boolean;
var 
  vse : variant;
...begin
  VSE := CreateOleObject('MSScriptControl.ScriptControl');
  ...
  Result :=not vse.run(main,tpath,qTempPath,qTpath,qFileName,relatExt);
end;  //RUN的参数是这样的：
//vse.run(Const procedureName:widestring; var Parameters:pSafeArray):OLEVariant;我用不来啊