Sauvegarde Molière

' save_Moliere_task.vbs
' Auteur : Lycée René CASSIN - Le Raincy (93)
' Version du 05/04/2006
' Permet de sauvegarder (via une tache planifiée) le répertoire Molière sur un autre serveur.
' Mappage d'un lecteur réseau et copie des fichiers et dossiers avec écrasement

Dim oNet1
Dim oNet2
Dim objFSO

Set oNet1 = WScript.CreateObject("Wscript.Network")
On Error Resume Next

oNet1.RemoveNetworkDrive "W:"

Set oNet2 = WScript.CreateObject("Wscript.Network")
oNet2.MapNetworkDrive "W:", "\\cassin-svr3\g$"

Const OverWriteFiles = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "D:\InterZones\Moliere" , "W:\Archive_Moliere" , OverWriteFiles