How to get the response of a vbscript ran from extended js?

Question

Hi All,
I  want to get the result from a vbscript, how to get that in my jsx? This is what I'm doing-
vbscript (this will return me something, i've added just a sample string)
Wscript.Echo "Like this?"
jsx
var a = File("C:\\Users\\Sahil\\AppData\\Roaming\\CreativeWorx\\1.vbs");
var b=a.execute();
Now, variable b returns me true/false; and the output i.e. "Like this?"  is alerted! So my question is-
1. How to get the output in a variable?
2. How to avoid the alert
So, I simply wish to get the output from my vbscript and then perform certain functions accordingly, alos, I dont want  this to be alerted!
Any help will be highly appreciated!

Answer 1

The capitalization is app.doScript and not app.doscript that is if you are trying to get a jsx script to run and access a string from from a vbs script.
When defining the VBscript for multiline scripts the easiest method is to use triple quotes
VBscript = """dim WMI:  set WMI = GetObject("winmgmts:\\.\root\cimv2")
dim Nads: set Nads = WMI.ExecQuery("Select * from Win32_NetworkAdapter where physicaladapter=true")
dim nad
for each Nad in Nads
    if not isnull(Nad.MACAddress) then Wscript.Echo Nad.description, Nad.MACAddress  
next"""
when using the scriptArgs you can either make a loop of them and send the string value of each one something like this
For (n = 0 .........
myArg = "myArg" & n
myStringToPassOver = "Shaddow Fax " & n
app.scriptArgs.SetValue myArg, myStringToPassOver
Next
or probably better to make a long comma or something else separated string and pass it over after the loop
var VBScript = """myArg = ""
For n = 0 To 15
myArg = myArg & "Shaddow Fax " & n & ","
Next
app.scriptArgs.SetValue "myResult", myArg
app.doScript(VBScript, ScriptLanguage.visualBasic);
var myResult = app.scriptArgs.getValue("myResult").replace(/\,$/,"").split(",");
// if neaded use "replace" to remove final "," and "split" to convert into an array
alert(myResult.join("\r")); // alert the array
The above script is a jsx script that runs a vbs
If you want a vbs script to run and access a string from from a jsx script then you would use xxx.DoScript see the sample from the manual below.
Set myInDesign = CreateObject("InDesign.Application")
myJavaScript = "alert(""First argument: "" + arguments[0] + ""\rSecond argument: "" +
arguments[1]);"
myInDesign.DoScript myJavaScript, idScriptLanguage.idJavascript, Array("Hello from
DoScript", "Your message here.")
myVBScript = "msgbox arguments(1), vbOKOnly, ""First argument: "" & arguments(0)"
myInDesign.DoScript myVBScript, idScriptLanguage.idVisualBasic, Array("Hello from
DoScript", "Your message here.")
P.s.Please mark the question as answered, thanks