Dim argsNamed,retvalueSet argsNamed = WScript.Arguments.Namedretvalue=CInt(argsNamed.Item("arg1"))+CInt(argsNamed.Item("arg2"))WScript.Echo retvalue
说明:
使用WScript.Arguments.Named来获得传入的有名参数。 使用argsNamed.Item("参数名")来获得对应参数的值。
注意命令行传入的参数值为字符串,所以需使用CInt转换为数值。
最后用WScript的方法Echo通过输出返回结果。
在另一vbs脚本中执行上面vbs脚本:传入参数并接受返回结果
Dim WshShell, oExecSet WshShell = WScript.CreateObject("WScript.Shell")Set oExec = WshShell.Exec("cscript /nologo 1.vbs /arg1:20 /arg2:30")MsgBox oExec.StdOut.ReadLine
说明:
命令行语句中/arg1:20 /arg2:30,传递2个参数arg1、arg2到1.vbs脚本。 /nologo 参数指定在Windows之前不显示脚本主机横幅。
oExec.StdOut.ReadLine,通过WshScriptExec对象StdOut控制台的输出流获得返回的结果。
- - - 正 文 - - - - - - 结 束 - - -
---
如果你有与本文相关问题可以后台发消息,欢迎点分享、收藏、点赞、在看。