Discussion :

[PAB/31/SAB]

Bonjour,

Je précise que je débute en vbs

J'ai deux serveurs de données
Dans lesquels je dois effectuer des sauvegarde de logs

Sur le Serveur 1 je place le script suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "D:\TSTS\Groupe1\PROG\prog.log", "D:\TSTS\Sauvegardelog\"

Sur le Serveur 2 je place le script suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "D:\TSTS\Groupe2\PROG\prog.log", "D:\TSTS\Sauvegardelog\"

Le lancement des script se fait à partir d'un autre serveur, ce que je souhaiterais faire c'est que le script placé sur chaque serveur soit lancé et que le paramètre "Groupe<X>" soit traité indifféremment.

Merci beaucoup pour vos réponses

[omen999]

bonjour,

c'est que le script placé sur chaque serveur soit lancé et que le paramètre "Groupe<X>" soit traité indifféremment.

pour lancer à distance un script, il existe l'objet WshRemote dispo sous WSH
mais sa mise en oeuvre nécessite un paramétrage pas toujours facile à réaliser
sinon, l'outil PsExec est très efficace
pour utiliser le même script sur les deux serveurs, il suffit de fournir le paramètre
sous la forme d'un argument de ligne de commande et de l'exploiter dans le script
avec l'objet WshArguments
ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set objArgs = WScript.Arguments
FSO.CopyFile "D:\TSTS\Groupe" & objArgs(0) & "\PROG\prog.log", "D:\TSTS\Sauvegardelog\"

[PAB/31/SAB]

bonjour,

pour lancer à distance un script, il existe l'objet WshRemote dispo sous WSH
mais sa mise en oeuvre nécessite un paramétrage pas toujours facile à réaliser
sinon, l'outil PsExec est très efficace
pour utiliser le même script sur les deux serveurs, il suffit de fournir le paramètre
sous la forme d'un argument de ligne de commande et de l'exploiter dans le script
avec l'objet WshArguments
ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set objArgs = WScript.Arguments
FSO.CopyFile "D:\TSTS\Groupe" & objArgs(0) & "\PROG\prog.log", "D:\TSTS\Sauvegardelog\"

Merci pour ta réponse, mais c'est encore flou.

je te donne un autre exemple de ce que je voudrais faire.

je veux déplacer des fichiers logs qui son localisés sur deux serveurs differents
sans avoir à taper toutes les lignes ci-dessous
Avec génération de date et heure pour les fichiers log.
Je sais c'est peut-tre beaucoup demander et je m'en excuse, je vais me programmer une formation, merci à vous

Exp:

Sur le serveur1 je veux déplacer:

C:\dossier1\transfertA\fichier.log vers C:\dossier1\transfertA\sauvegardeA\fichier.log
C:\dossier1\transfertB\fichier.log vers C:\dossier1\transfertB\sauvegardeB\fichier.log

Sur le serveur2 je veux déplacer:

C:\dossier2\transfertC\fichier.log ver C:\dossier2\transfertC\sauvegarde\fichier.log
C:\dossier2\transfertD\fichier.log vers C:\dossier2\transfertD\sauvegarde\fichier.log

j'ai essayé ceci (mais encore une fois je débute)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
'On Error Resume Next
'Option Explicit
 
Dim oFSO
Dim oShell
 
'Définition des variables
Dossier = dossier1, dossier2, 
Transfert = transfertA , transfertB, transfertC
 
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.MoveFile "C:\Dossier\Transfert\fichier.log " , "C:\Dossier\Transfert\sauvegardeA\fichier.log"