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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
| '------------------------
'Declaration variables
'------------------------
Dim Centre, Plaque, Fold, Log, oFl
Dim objFSO, oFSO, FileLog, oShell, oFS, Lock
Dim stRep,
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = Wscript.CreateObject("Wscript.Shell")
Set objArgs = Wscript.Arguments
VERSION="1.00"
centre = objArgs(0)
Select Case Centre
Case "1"
Plaque="Paris"
Case "2"
Plaque="Paris"
Case "3"
Plaque="Province"
Case "4"
Plaque="Paris"
Case "5"
Plaque="Province"
Case Else
Wscript.echo "Erreur dans le parametre"
wscript.quit(2)
End Select
MyDate = Year(Now) & "" & Month(Now) & "" & Day(Now) & "_" & Hour(Now)& "" & Minute(Now)
LOG="C:\Appli\Log\stat.vbs_"& MyDate &".log"
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set FileLog = FSO.CreateTextFile(Log)
Traitement="C:\Appli\Plaque_" & plaque & "\Centre_" & Centre & "\temp\Traitement"
Xmlin_temp="C:\Appli\Plaque_" & plaque & "\Centre_" & Centre & "\temp"
Zip_cmd = "D:\7-Zip\7z.exe"
Lock="C:\Fichiers_doublons\" & file_name & ".lock"
'--------------------------------------------
'Initialisation des log pour chaque centre
'--------------------------------------------
Sub Msglog(severite,code,label)
wscript.echo Mydate & "-" & time & " " & severite & " " & code & " " & label
FileLog.WriteLine(Mydate & "-" & time & " " & severite & " " & code & " " & label)
End sub
'--------------------------------------------------------------------
'Test de la présence de fichier zip pour chaque centre
'--------------------------------------------------------------------
sub Verif_ZIP
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Appli\Plaque_" & plaque & "\Centre_" & Centre & "\temp"
If oFSO.FolderExists(stRep) Then
For each oFl in oFSO.GetFolder(stRep).Files
file_name=oFl.Name
wscript.echo file_name 'verification du nom du fichier.zip
Next
MSGLog 0,"0003","Verification de la présence du fichier zip "
if not FSO.FileExists (file_name) Then
MSGLog 0,"0003","Pas de fichier zip."
FileLog.Close
Wscript.quit
End If
End If
End sub
'--------------------------------------------
'Vérification du lock pour chaque centre
'--------------------------------------------
Sub Verif_Lock
msglog "0","0000","-Debut: Verification de la non presence du Lock pour le centre " & centre
If objFSO.FileExists ("C:\Fichiers_doublons\" & file_name & ".lock") Then
'wscript.echo (Lock)
msglog "1","0001","WARNING: Programme deja lance pour le centre " & centre
wscript.quit (8)
else
Set FSys = CreateObject("Scripting.FileSystemObject")
msglog "0","0000","-Debut: Pose Lock " & Lock & " pour le centre " & centre
Set MonFic = FSys.CreateTextFile("C:\Fichiers_doublons\" & file_name & ".lock")
msglog "0","0000","-Fin: Pose du Lock " & Lock & " pour le centre " & centre
end if
msglog "0","0000","-Fin: Verification de la non presence du Lock pour le centre " & centre
end sub
'------------------------------------
'Decompression du xml.zip
'------------------------------------
Sub Decompress
MSGLog 0,"0003","Décompression du fichier "
if not FSO.FileExists (file_name) Then
wscript.echo file_name
MSGLog 0,"0003","Pas de fichier zip."
FileLog.Close
Wscript.quit
End If
oShell.Run Zip_cmd & "\7z.exe x "file_name" -o "Traitement"", true ' On décompresse le fichier vers le dossier Traitement
End sub
'---------------------
' Corps su script
'---------------------
msglog "0","0000","---Debut:------- xml.vbs "
Verif_ZIP
Verif_Lock
Decompress
msglog "0","0000","---Fin:--------- xml.vbs"
FileLog.Close |
