This will do what you wanted:
Dim fso, WshShell, SourceFile, DestFile
DestFile = "c:\windows\tools\filename.exe" 'Local workstation file
SourceFile = "\\ServerName\ShareName\FileName.exe" 'Remote server file
Set fso = CreateObject("scripting.filesystemobject")
set WshShell =...