Problème de compilation script Erreur 800A03EA

**martou84** · 16/07/2018, 11h22

Bonjour,

Je me permets de vous contacter car j'ai soucis avec mon script et je suis débutant. J'ai une erreur 800A03EA problème de syntaxe. Votre aide sera bienvenu.

Envoyé par ServeurMDT.txt

SERVER01;
SERVER02;
SERVER03;
SERVER03;
SERVER04;
SERVER05;
SERVER06;
SERVER07;
SERVER08;
SERVER09;

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
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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
'Script de Réplication des serveurs MDT
'Ecrit par LM
'Release:
'V1.2 : 1ere version
'V1.3 : Ajout de code de sortie
 
Dim ObjFSO, ObjNetwork, ObjShell
Dim text, readfile, contents, completeline , entity, LogFolder, LogFolderError, LogFile, LogFileError, LogFileComplet
'On Error Resume next
Set ObjNetwork = CreateObject("WScript.Network")
Set ObjShell = CreateObject("Wscript.Shell")
set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set readfile = objFSO.OpenTextFile("D:\Robocopy\Script\ServeursMDT.txt", 1, false)
 
'On traite la date pour la remettre au format francais et récupérer le jour
strDates = Replace(Date,"/","-")
SplitDate = Split(Date, "/")
SplitMonth = SplitDate(0)
strMonth = Len(SplitMonth)
If strMonth = 1 then 
	strMois = "0" & SplitMonth
Else
	StrMois = SplitMonth
End If
SplitDay = SplitDate(1)
strDay = Len(SplitDay)
If strDay = 1 then 
	strJour = "0" & SplitDay
Else
	strJour = SplitMonth
End if
strAnnee = SplitDate(2)
strFrDate = strJour & strMois & strAnnee
 
'on recupere le nom du jour
completeDate = FormatDateTime(Now, vbLongDate)
SplitDate = Split(CompleteDate, ",")
Dayname = UCASE(SplitDate(0))
 
'Boucle qui va traiter ligne par ligne le fichier txt qui comporte la liste des serveurs
'Une fois le dernier ligne traité, le script s'arrete
do while readfile.AtEndOfStream=false 
completeline = readfile.ReadLine
ServMDT = Split(completeline, ";")
NameSrvMDT = "NTLEVHA"
 
'On détermine le serveur de référence pour la copie
RepSource = "\\NTLEVHA\DSW7Deploy$"
RepDest = "\\" & NameSrvMDT & "\DSW7Deploy$"
 
 
LogFileEvent = "D:\Robocopy\Log\Events\JournaldesReplications.log"
LogFileValidation = "D:\Robocopy\Log\Validation\" & NameSrvMDT & "OK.log" 
LogFileError = "D:\Robocopy\Log\Erreurs\" & NameSrvMDT & "_" & strFrDate & ".log"
 
'On vérifie si il existe un fichier de vaidation signifiant que le serveur est déja fait
If Not(objFSO.FileExists(LogFileValidation)) then
'On vérifie si on est un jour ou on peut faire la réplication
	select case Dayname 
		Case "SUNDAY", "MONDAY", "TUESDAY", "WEDNESDAY", "THURSDAY"
			Heure = Hour(Time)
'On vérifie si on est dans les heures de réplication
			If Heure = "10" Or Heure = "11" Or Heure = "12" Or Heure = "13" Or Heure = "14" Or Heure = "01" Or Heure = "02" then
				ErrorLevel = Objshell.Run ("cmd /C Robocopy.exe """ & RepSource & """ """ &  RepDest & """ /L /e /R:1 /W:2 /v /XF CustomSettings.ini Settings.xml Audit.log Bootstrap.ini /log+:D:\Robocopy\Log\ResultCopy\" & NameSrvMDT & "_" & strFrDate & ".log /TEE /NP",1,True)
				Select Case ErrorLevel
					Case "0" 
						LogIT LogFileValidation, FormatDateTime(Now, vbLongDate)
						LogIT LogFileEvent, NameSrvMDT & " : Code de sortie " & ErrorLevel & " :Aucun fichier n'a été copié. Aucune défaillance ne s’est produite. Aucun fichier n’était incompatibles. Les fichiers existent déjà dans le répertoire de destination ; Par conséquent, l’opération de copie a été ignorée."
					Case "1"
						LogIT LogFileValidation, FormatDateTime(Now, vbLongDate)
						LogIT LogFileEvent, NameSrvMDT & " : Code de sortie " & ErrorLevel & " :Tous les fichiers ont été copiés avec succès."
					Case "3"
						LogIT LogFileValidation, FormatDateTime(Now, vbLongDate)
						LogIT LogFileEvent, NameSrvMDT & " : Code de sortie " & ErrorLevel & " :Certains fichiers ont été copiés. Fichiers supplémentaires étaient présents. Aucune défaillance ne s’est produite."
					Case "5"
						LogIT LogFileValidation, FormatDateTime(Now, vbLongDate)
						LogIT LogFileEvent, NameSrvMDT & " : Code de sortie " & ErrorLevel & " :Certains fichiers ont été copiés. Certains fichiers étaient incompatibles. Aucune défaillance ne s’est produite."
					Case "6"
						LogIT LogFileValidation, FormatDateTime(Now, vbLongDate)
						LogIT LogFileEvent, NameSrvMDT & " : Code de sortie " & ErrorLevel & " :Il existe des fichiers et des fichiers qui ne correspondent pas. Aucun fichier n'a été copié, aucune défaillance ne s'est produite. Cela signifie que les fichiers existent déjà dans le répertoire de destination."
					Case "7"
						LogIT LogFileValidation, FormatDateTime(Now, vbLongDate)
						LogIT LogFileEvent, NameSrvMDT & " : Code de sortie " & ErrorLevel & " :Les fichiers ont été copiés, un fichier incompatible a été rencontré et d'autres supplémentaires étaient déjà présents."
					Case "8"
						LogIT LogFileValidation, FormatDateTime(Now, vbLongDate)
						LogIT LogFileEvent, NameSrvMDT & " : Code de sortie " & ErrorLevel & " :Plusieurs fichiers n'ont pas été copiés."
					Case "-1073741510"
						LogIT LogFileError, NameSrvMDT & " : Code erreur " & ErrorLevel & " :impossible d'acceder au partage."
						LogIT LogFileEvent, NameSrvMDT & " : Code erreur " & ErrorLevel & " :impossible d'acceder au partage."
					Case Else
						LogIT LogFileError, NameSrvMDT & " : Code erreur " & ErrorLevel & " :impossible de mettre à jour le serveur."		
						LogIT LogFileEvent, NameSrvMDT & " : Code erreur " & ErrorLevel & " :impossible de mettre à jour le serveur."
				End Select 
			Else 
				LogIT LogFileEvent, NameSrvMDT & " : Horaire de réplication dépassé, arret du script"
				readfile.Close
				Wscript.Quit()
			End if
		case "FRI"
				ErrorLevel = Objshell.Run ("cmd /C Robocopy.exe """ & RepSource & """ """ &  RepDest & """ /L /e /R:1 /W:2 /v /XF CustomSettings.ini Settings.xml Audit.log Bootstrap.ini /log+:D:\Robocopy\Log\ResultCopy\" & NameSrvMDT & "_" & strFrDate & ".log /TEE /NP",1,True)
				Select Case ErrorLevel
					Case "0" 
						LogIT LogFileValidation, FormatDateTime(Now, vbLongDate)
						LogIT LogFileEvent, NameSrvMDT & " : Code de sortie " & ErrorLevel & " :Mise à jour du serveur terminé"
					Case "1"
						LogIT LogFileValidation, FormatDateTime(Now, vbLongDate)
						LogIT LogFileEvent, NameSrvMDT & " : Code de sortie " & ErrorLevel & " :Mise à jour du serveur terminé"
					Case "3"
						LogIT LogFileValidation, FormatDateTime(Now, vbLongDate)
						LogIT LogFileEvent, NameSrvMDT & " : Code de sortie " & ErrorLevel & " :Mise à jour du serveur terminé"
					Case "-1073741510"
						LogIT LogFileError, NameSrvMDT &  FormatDateTime(Now, vbLongDate)
						LogIT LogFileError, NameSrvMDT & " : Code erreur " & ErrorLevel & " :impossible d'acceder au partage."
						LogIT LogFileEvent, NameSrvMDT & " : Code erreur " & ErrorLevel & " :impossible d'acceder au partage."
					Case Else
						LogIT LogFileError, NameSrvMDT &  FormatDateTime(Now, vbLongDate)
						LogIT LogFileError, NameSrvMDT & " : Code erreur " & ErrorLevel & " :impossible de mettre à jour le serveur."	
						LogIT LogFileEvent, NameSrvMDT & " : Code erreur " & ErrorLevel & " :impossible de mettre à jour le serveur."
				End Select 
		End Select
Else
	LogIT LogFileEvent, NameSrvMDT & " : Serveur deja mise à jour"		
End if
'loop
LogIT LogFileEvent, "------------------------------------------------------------------------------------------------------------------------"
LogIT LogFileEvent, "------------------------------------------------------------------------------------------------------------------------"
'readfile.Close
Wscript.Quit()
 
' ---------------------------------------------------------------------------------------------
' -
' -                                         L O G I T
' -
' - Log le message MSG dans le fichier FichierLog.
' -
' ---------------------------------------------------------------------------------------------
Sub LogIT(FichierLog, LogMsg)
	On Error Resume Next
	Dim oGF, oLF
	Const ForReading = 1, ForWriting = 2, ForAppending = 8
	Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
	If Not objFso.fileExists(FichierLog) Then
		objFso.createTextFile FichierLog
	End If
	Set oGF = objFso.GetFile(FichierLog)
	' Ouverture en mode Ajout
	Set oLF = oGF.OpenAsTextStream(ForAppending, TristateUseDefault)
	oLF.Write Date & "|" & Time & "| " & LogMsg & VbCrlf
	oLF.Close
End Sub'

Cordialement,