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