Script pour copier fichiers locaux vers serveur de fichiers

salut, ci-joint mon script qui me permet de faire passer des machines
virtuelles sous vs 2005 en Save State avant de faire une copie des fichers
dans un repertoire local.

Je voudrais ajouter a la fin de mon script (apres que les machines
virtuelles soient sorties de l'etat Save State) une copie des fichiers du
repertoire de sauvegarde vers un autre repertoire (un repertoire
//serveur/abcd).

mon Script :

Code:
' Usage : backupvm.vbs <vm instance name> <backup location>
' e.g. cscript backupvm.vbs nameofthemachine d:\backup\
' Make sure that you place the \ at the end of the backup path or you'll get
errors.
'

Option Explicit
On Error Resume Next

Dim objFSO, objVirtualServer, objVM, objSaveTask, objVHD

'Connect to file system object.
set objFSO=CreateObject("Scripting.FileSystemObject")

'Connect to Virtual Server.
set objVirtualServer = CreateObject("VirtualServer.Application")

'Get virtual machine from command-line parameter.
set objVM = objVirtualServer.FindVirtualMachine(WScript.Arguments(0))

'Save state of the virtual machine.
set objSaveTask = objVM.Save

'Loop waiting for task completion
while not objSaveTask.isComplete
WScript.Sleep 1000
wend

'Copy virtual hard disks and undo disks.
for each objVHD in objVM.HardDiskConnections
If objFSO.FileExists(objVHD.HardDisk.file) Then
'Wscript.Echo objVHD.HardDisk.file & " " & WScript.Arguments(1)
objFSO.CopyFile objVHD.HardDisk.file, WScript.Arguments(1)
End If
If objFSO.FileExists(objVHD.undoHardDisk.file) Then
'Wscript.Echo objVHD.undoHardDisk.file & " " & WScript.Arguments(1)
objFSO.CopyFile objVHD.undoHardDisk.file, WScript.Arguments(1)
End If
Next

'Copy .vmc and .vsv files.
objFSO.CopyFile objVM.File, WScript.Arguments(1)
objFSO.CopyFile objVM.SavedStateFilePath, WScript.Arguments(1)

'Start the virtual machine.
objVM.Startup