Starting VBScript from Access VBA

Question

I'm trying to call a VBScript to launch in 32-bit from with-in an Access VBA function. I have tried several different variations of Shell, but nothing seems to work, here is my most recent try:

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

The script receives an error every time I try to run it, I cannot see what the error is, it just fails to run the script.

I have tried and if I run the following command in CMD it runs the script just fine:

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

MC ND · Accepted Answer · 2015-08-27 18:05:13Z

1

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

As you have used double quotes from command line and they work, keep them. But to place a double quote inside a string, you need to escape them.

answered Aug 27, 2015 at 18:05

MC ND

71.1k8 gold badges95 silver badges136 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Heather Over a year ago

Thanks so much, I don't know why I didn't think of that thought the single quote would work the same.

Collectives™ on Stack Overflow

Starting VBScript from Access VBA

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related