Using the ".Run" method to call a Sub Procedure 1

[Aladdin420]

Dim objSC, blah, sCCSserver, sMachine, Copier, oFSo, x, y
Set oFSo = CreateObject("Scripting.FileSystemObject&quot
Set objSC = CreateObject("MSScriptControl.ScriptControl&quot
Set oShell = CreateObject("Wscript.Shell&quot
Const ForReading = 1, ForWriting = 2, ForAppending = 8
objSC.Language = "VBScript"

I wanted to call a Sub procedure located on a seperate script using the .Run method. I have written the code, but there are a few bugs. Here is the code:

1) In this first function I tried to pass only parameters to the script containing the Sub procedure.

blah1 = "Function Load(x, y)"& vbNewLine

blah1 = blah1 & "Load = ""c:\project\vbs.stuff\test207.vbs "" & x & "" "" & y"

blah1 = blah1 & vbNewLine & "End Function"
objSC.AddCode blah1

x = "2"
y = "3"

oShell.Run(objSC.Run("Load", "2", "3&quot)

Now the line above line calls the "test207.vbs" script, here's test207.vbs :

Sub Addxy(x, y)
Wscript.Echo "x is:", x
Wscript.Echo "y is:", y

Total = x + y
End Sub

Dim Total
Wscript.Echo Total

This test207 script is called, but the parameters "2" and "3" from the main script aren't brought with the call.
And so both x and y are equal to zero.

'**************

The second time I tried to call the Sub procedure directly from my main script:

2)
blah1 = "Function Load(Addxy)"& vbNewLine

blah1 = blah1 & "Load = ""c:\project\vbs.stuff\test207.vbs "" & Addxy(x, y)"

blah1 = blah1 & vbNewLine & "End Function"
objSC.AddCode blah1

oShell.Run(objSC.Run("Load", "Addxy(2, 3)&quot)

This gives an error of a mismatch 'Addxy'.

Got any ideas , I'm all ears.
Thanks

Aladdin420

 

[JohnYingling]

It thinks ADDXY being referred to as an array because it is not a function within your Script Control script but you passed string, "Addxy(2, 3)".

http://WWW.VBCompare.Com

 

[alistairpaul]

Okay, the calling script in your first example, if it
truly outputs the following as the value for "blah1",

Function Load(x, y)
Load = "c:\project\vbs.stuff\test207.vbs valueofX
valueofY"
End Function

then, your calling script is fine.

Your test207.vbs is the problem. You're not bringing
in the arguments from the command line.
This page will help you with that:

http://www.devguru.com/Technologies/wsh/quickref/wscript_Arguments.html

You need to make it more like this:

Set objArgs = WScript.Arguments
objArgs
Wscript.Echo "x is:" & objArgs(0)
Wscript.Echo "y is:" & objArgs(1)
Total = x + y
Wscript.Echo Total

 

[Aladdin420]

Beautiful, simply beautiful. You guys simply rock. It's working like a charm. Thanks a million. A special thanks to alistairpaul of course, thanks once again dude.

Aladdin420