Salut brave gens^^, je fais appel à vous en espérant trouver un peu d’aide

Voilà j’aimerais faire un script qui copie tous les fichiers se trouvant dans un dossier situé emplacement A vers un emplacement B, si un fichier existe déjà ne rien faire, et surtout j’aimerais avoir un fichier log pour savoir si la copie s’est bien passé!
Avant chaque copie je lance un test de Ping
Voilà ce que j’ai fais pour l’instant (je test si la machine est joignable avec un ping si pas ok j’écris dans un fichier log et sinon si le test est bon je copie les fichiers mais sans vérifier l’existence des fichiers)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
strMachines = "192.168.70.123"
aMachines = split(strMachines, ";")
Set objFichier=CreateObject("Scripting.FileSystemObject")
Set MyFile= objFichier.OpenTextFile("C:\Test\test-log.txt", 8,true)
 
    For Each machine in aMachines
        Set objPing = GetObject("winmgmts:  {impersonationLevel=impersonate}")._
            ExecQuery("select * from Win32_PingStatus where address = '"_
                & machine & "'")
        For Each objStatus in objPing 'si le test du ping n'est pas bon je ne fais j'ecris dans le fichier log
            If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
                Myfile.WriteLine date & "-" & time & " Machine " & machine & " non joignable"
            Else ' si le test du ping est ok copier les élements
				FSO.CopyFile "C:\Documents and Settings\MarieC\Desktop\Meusures\*", "\\@serveur\D$\Backup\Meusures"
			end If
        Next
    Next
MyFile.Close
WScript.Quit
Je ne sais pas comment faire pour savoir si la copie c’est bien passé ou pas
Je ne sais pas comment vérifier avant la copie l’existence des fichiers, j’ai testé des trucs trouvé sur des forums mais sans succès

Pouvez-vous m’aidez svp ?
Merci d’avance