Trying to exit script from a vb subroutine

[fazleskhan]

I have a script that uses VBSTART/VBEND to run some code. In an error condition I would like to have the vbscript stop execution of the macro. However when I try to invoke WScript.Quit I get the error

Microsoft VBScript runtime error: 438
Object doesn't support this property or method: 'WScript.Quit'


What am I doing wrong?

[Marcus Tettmar]

Yes that Quit object is part of the windows scripting host and has no relevance inside Macro Scheduler. It won't be understood.

What I would do is make your subroutine a function, and if you need to exit, jump to the end of the function, returning a value, say -1 which your main script would check for. Like this:

Code: Select all

VBSTART
  Function MyFunc
    'bla bla
    'code here
    If exitcondition=true
      MyFunc = -1
    Else
      'continue on 
      'bla bla
    Endif
  End Function
VBEND

VBEval>MyFunc,funcResult
if>funcResult=-1
  Exit>0
Endif

If you don't want to change your Sub to a Function you could instead set the value of a global VSBcript variable and then use VBEval to see what that is after running the subroutine, and exit or not accordingly.

[fazleskhan]

thanks for the info