.VBS to download workbook daily

I consistently update and make changes to a workbook contaning userforms with automation controls. My VBS to launch the workbook is shown below:

Option Explicit 
 
On Error Resume Next 

ExcelMacroExample 
 
Sub ExcelMacroExample()  
 
  Dim xlApp  
  Dim xlBook  
 
  Set xlApp = CreateObject("Excel.Application")
  xlapp.visible = "false"  
  Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\jbayldon\Desktop\CASautomation\CASautomation.xlsm", 0, False)  
  
  xlApp.Run "CallForm"

  xlApp.quit
 
  Set xlBook = Nothing  
  Set xlApp = Nothing  
 
End Sub

What I want to do is store a workbook on a network drive and then download it into a local directory daily through my vbs file. This workbook supports password management for users, and is required to be read/write, so I dont want to access it directly from the drive share. How would I go about making these changes?