zqz0012005

jsFile = "C:\a.js"
result = CreateObject("WScript.Shell").Exec( _
  "cscript -nologo -e:jscript """ & jsFile _
  & """ """ & Path & chr(34) ).stdOut.ReadAll
'如果不设变量jsFile，可以直接
result = CreateObject("WScript.Shell").Exec( _
  "cscript -nologo -e:jscript ""C:\li lei\a.js"" """ & _
  Path & chr(34) ).stdOut.ReadAll
复制代码

既然你是新手，就说明一下：
1、vbs中的一个引号"本身用一对引号""表示。（类似地，批处理中%%，JS中\\）
2、“_”为续行符。（类似地，CMD/BAT中为^，JS中为\）
3、JScript为JavaScript的微软版本，除了瘟到死，其他平台都不承认。
但在Windows上，MS对它作了优化，说它性能比JavaScrirpt优越（实际上几乎无法感觉到，两都语法也几乎完全相同）。运行本地js可以都用JScript引擎，但做网页千万不要用language=JScript。
（BSMS。。。）

zqz0012005

js的内容要保存为一个js文件。
把上面的代码加到你已有的vbs中。

其实有一种文件可以让你把vbs和js写在一个文件中，那就是wsf文件（Windows Script File，Windows脚本文件）。先去看手册学习。

zqz0012005

你在js中用了WScript.Arguments吗？？？

zqz0012005

当把两种不同类型的脚本放在同一文件时，就不需要WScript.Arguments了（命令行参数），使用函数传递参数即可。

<package>
<job id="job1">

<script language="JScript">
function getMin(sPath) {
    var fso, nums, s;
    fso = new ActiveXObject('Scripting.FileSystemObject');
    nums = fso.OpenTextfile(sPath).ReadAll().match(/\ba[-.\d]+\b/gi);
    s = "Math.min(" + nums.join(',').replace(/a/gi,'') + ")";
return eval(s);
}
</script>

<script language="VBScript">
Path = "C:\Documents and Settings\user\桌面\a.txt"
WScript.Echo getMin(Path)
</script>

</job>
</package>
复制代码

zqz0012005

7楼不是说过吗？WScript.Arguments

js中 f = path; 改成
f = WScript.Arguments(0);