Déclaration de variables et conditions

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:

---

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:

---

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

bonjour,

Citation:

---

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:

---

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

---

Citation:

---

Envoyé par omen999

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:

---

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:calim2:

Exp:

Sur le serveur1 je veux déplacer:

Citation:

---

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:

Citation:

---

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:

---

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"

---