[VBScript] Error Handling (exit with status 1, if a runtime error is raised)

vbs-entrypoint.vbs

Call EntryPoint

Sub EntryPoint()
  On Error Resume Next
  Call Main
  If Err <> 0 Then
    WScript.Echo Err.Source & ": " & Err.Description & " (Error " & Err.Number & ")"
    WScript.Quit(1)
  End If
End Sub

Sub Main()
  ' TODO write your code here
  foo
End Sub