vbscript函数变量不解析答案

【问题标题】：vbscript function variable not resolvingvbscript函数变量不解析
【发布时间】：2013-11-04 19:41:33
【问题描述】：

我有一个调用函数的 vbs 文件，该函数又运行命令。（我知道这很复杂，但必须这样做。）我遇到的问题是我将一个值传递给函数，该函数应该将该值作为参数传递给命令行。 file1.vbs 中的 msgbox 返回“10698441”，但 file2.vbs 中的 msgbox 返回 varRAW。我需要这个来显示变量的真实值。我怎样才能让这个变量解析为正确的值？我还需要将 file2.vbs 创建的值保存到变量中。这可能吗？

file1.vbs：

fileAPPNUM("10698441")
function fileAPPNUM(varRAW)
  msgbox varRAW
  lresult = CreateObject("WScript.Shell").Run ("c:\windows\syswow64\cscript.exe file2.vbs varRAW",0,true)
end function

file2.vbs：

Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile="C:\temp\AppNum.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)
Dim strCon
CAID=WScript.Arguments.Item(0)
msgbox CAID
strCon = "DSN=*****; " & _
    "uid=********;pwd=*********;"
Dim oCon: Set oCon = WScript.CreateObject("ADODB.Connection")
Dim oRs: Set oRs = WScript.CreateObject("ADODB.Recordset")
oCon.Open strCon
Set oRs = oCon.Execute("select SPRCMNT_TEXT from SPRCMNT where SPRCMNT_TEXT like 'CA_%" + CAID + "%'")
objFile.write oRs.Fields(0).Value & vbCrLf
objFile.close
oCon.Close
Set oRs = Nothing
Set oCon = Nothing

【问题讨论】：

标签： vbscript

【解决方案1】：

像.Run("... file2.vbs " & varRAW,0,true) 一样传递varRAW 的值。

【讨论】：