从 Access VBA 启动 VBScript

Question

我正在尝试调用 VBScript 以从 Access VBA 函数中以 32 位启动。我尝试了几种不同的 Shell 变体，但似乎没有任何效果，这是我最近的尝试：

Function callVS()
    Dim wsh As Object
    Set wsh = CreateObject("Wscript.Shell")
    Dim errorCode As Integer
    errorCode = wsh.Run("C:\Windows\syswow64\cscript.exe '\\hct431vntgta901\test scripts\machine queries\queryTest.vbs'", 1, True)
    If errorCode <> 0 Then
        MsgBox "Error was recieved"
    End If
End Function

每次我尝试运行脚本时都会收到错误，我看不到错误是什么，它只是无法运行脚本。

我已经尝试过，如果我在 CMD 中运行以下命令，它会运行脚本就好了：

C:\Windows\syswow64\cscript.exe "\\hct431vntgta901\test scripts\machine queries\queryTest.vbs"

Answer 1

wsh.Run("C:\Windows\syswow64\cscript.exe ""\\hct431v ... es\queryTest.vbs""", 1, True)
                                         ^   use escaped double quotes   ^

由于您在命令行中使用了双引号并且它们有效，因此请保留它们。但是要在字符串中放置双引号，您需要对它们进行转义。