title: returning error code to VBScript
body: <p>Here is what I am trying to do:</p>
  
  <ol>
  <li>Get a VBScript to run another VBScript.</li>
  <li>get the second VBScript to post an error on completion, either 0 if successful or >0 if not back to the original script and then work on conditions Based on the error code returned.</li>
  </ol>
  
  <p><strong>Uninstall 2010 &amp; copy office 2013</strong></p>
  
  <pre><code>'Copy files from a network share to machine
  Set FSO = CreateObject("Scripting.FileSystemObject")
  WScript.Echo "Starting to uninstall Microsoft Office 2010 from the machine"
  
  FSO.CopyFile "\\data01\Tools\WSM\Copy_2013.vbs", "C:\temp\Copy_2013.vbs"
  FSO.CopyFile "\\data01\Tools\WSM\OffScrub10.vbs", "C:\Temp\OffScrub10.vbs"
  FSO.CopyFile "\\data01\Tools\WSM\DeleteOffice13Package.vbs", "C:\temp\DeleteOffice13Package.vbs"
  
  'Wait to execute rest of script where copied filed need to be in location
  WScript.Sleep 5000
  
  'Executes Office 2013 copy at the same time, do not wait to continue uninstalling office 2010
  Set objShell = WScript.CreateObject("WScript.Shell")
  Call objShell.Run("C:\temp\Copy_2013.vbs", 0, False)
  
  WScript.Sleep 3000
  
  'Run VBScript that uninstalls office 2010 (currently set to copy a non existent path for error capture test)
  strRemoveOffice10 = "c:\Temp\offscrub10.vbs ALL /Quiet /NoCancel"
  Call objShell.Run(strRemoveOffice10, 0, True)
  
  WScript.Echo Err.Number
  
  If Err.Number &lt;&gt; 0 Then  WScript.Echo " Microsoft Office 2010 could not be uninstalled. Please uninstall again manually."
  If Err.Number = 0 Then WScript.Echo "Microsoft Office 2010 has uninstalled from the machine"
  
  Set objFileSys = Nothing
  
  WScript.Quit
  </code></pre>
  
  <p><strong>OffScrub10.vbs</strong></p>
  
  <pre><code>Dim objFileSys
  
  Set objFileSys = CreateObject("Scripting.FileSystemObject")
  objFileSys.GetFolder("C:\Temp\Temp1\bla").Copy "C:\WSM\Test"
  
  On Error Resume Next
  
  If Err.Number &lt;&gt; 0 WScript.Quit Err
  </code></pre>