Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Consultant informatique
    Inscrit en
    juillet 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : juillet 2018
    Messages : 2
    Points : 1
    Points
    1

    Par défaut Problème de compilation script Erreur 800A03EA

    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.

    Citation 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,
    Images attachées Images attachées  

  2. #2
    Membre émérite

    Homme Profil pro
    Responsable déploiement (SCCM, AirWatch, AMP)
    Inscrit en
    juillet 2014
    Messages
    1 358
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable déploiement (SCCM, AirWatch, AMP)
    Secteur : Transports

    Informations forums :
    Inscription : juillet 2014
    Messages : 1 358
    Points : 2 539
    Points
    2 539

    Par défaut

    Il semble qu'il manque le loop du do while

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Consultant informatique
    Inscrit en
    juillet 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : juillet 2018
    Messages : 2
    Points : 1
    Points
    1

    Par défaut

    Bonjour,
    Merci pour votre réponse, effectivement il manque le loop c'est corrigé.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème de compilation (erreur LNK1104)
    Par Rakdos dans le forum Ogre
    Réponses: 7
    Dernier message: 28/03/2015, 19h49
  2. Problème de compilation script Perl
    Par soho36 dans le forum Langage
    Réponses: 33
    Dernier message: 21/07/2010, 17h26
  3. Problème de compilation et erreur localtime
    Par pachalcs dans le forum wxWidgets
    Réponses: 0
    Dernier message: 05/03/2009, 19h37
  4. Réponses: 10
    Dernier message: 18/07/2007, 19h15
  5. [Compiler] Problème pour compiler un script
    Par usama2 dans le forum MATLAB
    Réponses: 3
    Dernier message: 18/02/2007, 14h52

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo