Transformer un .bat en vbs

Version imprimable

Bonjour à tous,

je dois transformer un .bat en vbs.
le script déplace les fichiers.csv (001,002,003,004,005) de "E:\CT-Rapport" en fonction du nom du serveur et du site Paris ou Province.

001,002,004 = Paris
003,005 = Province

Le .bat

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
E:
 
cd E:\CT-Rapport
 
If %computername% == Mach1 goto Paris
 
If %computername% == Mach2 goto Province
 
:Paris
move 001.*.csv E:\CT-Rapport\CSV_Paris
move 002.*.csv E:\CT-Rapport\CSV_Paris
move 004.*.csv E:\CT-Rapport\CSV_Paris
goto END
 
:Province
move 003.*.csv E:\CT-Rapport\CSV_Province
move 005.*.csv E:\CT-Rapport\CSV_Province
goto END
 
:END

Le .vbs que j'ai commencé, mais je voudrais faire simple et ça passe pas ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Dim oFSO, fso
Dim serveur1,serveur2,NomMachine
Dim oShell, objShell 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
 
serveur1 = "Mach1"
serveur2 = "Mach2"
 
Set Ws = CreateObject("WScript.Shell")
Set ProcessEnv = Ws.Environment("Process")
NomMachine = ProcessEnv("COMPUTERNAME")
 
'MsgBox NomMachine ,64,"NomMachine"
 
If NomMachine = serveur1 then call Deplacement1
If NomMachine = serveur2 then call Deplacement2
 
sub Deplacement1
 
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.MoveFile "E:\CT-Rapport\001.*.csv","E:\CT-Rapport\CSV_Paris"
 
end sub
 
sub Deplacement2
 
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.MoveFile "E:\CT-Rapport\003.*.csv","E:\CT-Rapport\CSV_Province"
 
end sub
 
 
'-------------------
' Corps su script
'-------------------
Deplacement1
Deplacement2

Salut;

Ton code comporte pas mal de variables Objet déclarées et non utilisées, cela ne fait que charger la mémoire pour rien.
Prends alors l'habitude d'utiliser la clause Option Explicit qui permet, entre autres, d'avertir si une variable utilisée n'est pas déclarée.
Puis tu fais 2 fois appel à chacune des procédures (Sub) de déplacement. Si la première fois elle a fait correctement le boulot demandé, la seconde fois elle te renvoie une erreur (fichier introuvable).
Voici une autre version de ton
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Option Explicit Const Serveur1 = "Mach1" Const Serveur2 = "Mach2" Dim objWMIService, strComputer, colItems, objItem, WS, oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") strComputer="." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_ComputerSystem",,48) For Each objItem in colItems If LCase(objItem.Caption) = LCase(Serveur1) Then Call Deplacement1 ElseIf LCase(objItem.Caption) = LCase(Serveur2) Then Call Deplacement2 End If Next '============================= Sub Deplacement1 On Error Resume Next oFSO.MoveFile "E:\CT-Rapport\001.*.csv","E:\CT-Rapport\CSV_Paris\" End Sub '============================= Sub Deplacement2 On Error Resume Next oFSO.MoveFile "E:\CT-Rapport\003.*.csv","E:\CT-Rapport\CSV_Province\" End Sub

12/03/2014, 17h22
PAB/31/SAB

Transformer un .bat en vbs

Merci l'autodicate,

je prends note de tes remarques. J'ai utilisé ton code, c'est parfait.

Encore merci

PAB/31/SAB :)