Discussion :

[PAB/31/SAB]

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

[l_autodidacte]

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 :

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

[PAB/31/SAB]

Merci l'autodicate,

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

Encore merci

PAB/31/SAB