0

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

文件 1.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

文件2.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
4

1 回答 1

1

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

于 2013-10-25T15:48:12.957 回答