.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?

You could use the FileSystemObject's CopyFile method, something like this:

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "X:\folder\subfolder\Workbook.xls", "C:\Your\Desktop\subfolder\", True  'X network drive letter
set FSO = nothing