Problème script robocopy

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème script robocopy

tompouss

Petit chat

Bonjour,

j'ai plusieurs scripts robocopy qui se lancent un backup de dossiers d'un server OVH vers un NAS dans notre immeuble

j'ai un autre script VBS qui permet d'envoyer le log généré par mail en signalant des erreurs de copies

enfin il est sensé le faire mais c'est foireux: genre il me dit parfois ok meme si le backup ne s'est pas terminé correctement

le probleme c'est que je ne sais pas trop quoi tester et que j'aimerais surtout des précisions sur les erreurs en questions

Code :

Dim txtSMTPServer, txtTo, txtFrom, txtSubject, txtBody, txtSMTPPort
Dim txtLog, strValue, iTotal, iPos, strText
txtLog = "C:\*****\robocopy\********.txt" 'chemin du fichier de log de robocopy
'gestion des erreurs de copie
strText = GetFile(txtLog)
iPos = 1
Do While iPos <= Len(strText)
If InStr(iPos, UCase(strText), "0X00000" ) > 0 Then
iTotal = iTotal + 1
iPos = InStr(iPos, UCase(strText), "0X00000" )_
+ Len("0X00000" )
Else
Exit Do
End If
Loop
'-- --
If iTotal > 0 Then
strErrors = 1
Else
strErrors = 0
End If
'preparation du mail
Set sendmail = CreateObject("CDO.Message" )
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 1
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "127.0.0.1"
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendemailaddress" ) = "help@******.be"
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 0
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername" ) = "my@gmail.com"
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = "password"
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl" ) = true
sendmail.Configuration.Fields.Update
sendmail.From = "help@*****.be"
sendmail.To = "***@******.be"
sendmail.Subject = " BACKUP status"
If strErrors = 1 Then
sendmail.Textbody = "Your Robocopy Backup Job has completed with one or more errors - attached file has details."
else
sendmail.Textbody = "Your Robocopy Backup Job has successfully completed - attached file has details"
End If
sendmail.AddAttachment "C:\*****\robocopy\BACKUPMERCATORS.txt"
'Envoi du mail
sendmail.Send
'lecture du log
function GetFile(txtLog)
If txtLog<>"" Then
Dim FS, FileStream
Set FS = CreateObject("Scripting.FileSystemObject" )
on error resume Next
Set FileStream = FS.OpenTextFile(txtLog)
GetFile = FileStream.ReadAll
End If
End Function

Publicité

tompouss

Petit chat

le script "amélioré"

Code :

Dim txtSMTPServer, txtPort, txtTo, txtFrom, txtSubject, txtBodyOk, txtBodyFailure, txtLog, strValue, iTotal, iPos, strText
'''''' A personnaliser ''''''''''''''''''''''''''''
txtSMTPServer = "***************"
txtPort = 25
txtTo = "*****@***************"
txtFrom = "*****@***************"
txtSubject = "test"
txtBodyOk = "Your Robocopy Backup Job was successfully completed - attached file has details. "
txtBodyFailure = "Your Robocopy Backup Job has completed with one or more errors. "
txtLog = "C:********robocopySQLBACKUPS.txt" 'chemin d'acces vers le log
'gestion des erreurs robocopy
strText = GetFile(txtLog)
iPos = 1
Do While iPos <= Len(strText)
If InStr(iPos, UCase(strText), "0X00000" ) > 0 Then
iTotal = iTotal + 1
iPos = InStr(iPos, UCase(strText), "0X00000" )_
+ Len("0X00000" )
msgbox(iPos)
Else
Exit Do
End If
Loop
'-- --
If iTotal > 1 Then
strErrors = 1
Else
strErrors = 0
End If
'preparation du mail
Set sendmail = CreateObject("CDO.Message" )
'sendusing permet d'expliciter la facon d'envoyer le mail
' la valeur 2 utilise un client pour l'envoi du mail, il faut donc qu'il y en ai 1 d'installé et configuré
'la valeur 1 utilise le service smtp du server local (ou d'un server distant)
'http://msdn.microsoft.com/en-us/library/exchange/ms873037%28v=exchg.65%29.aspx
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = txtSMTPServer
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = txtPort
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendemailaddress" ) = txtFrom
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 0
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername" ) = "my@gmail.com"
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = "password"
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl" ) = false
sendmail.Configuration.Fields.Update
sendmail.From = txtFrom
sendmail.To = txtTo
sendmail.Subject = txtSubject
If strErrors = 1 Then
sendmail.Textbody = txtBodyFailure & vbNewline & "Errors :"& iTotal &"Error message :" & vbcrlf & errorMessage(iPos)
else
sendmail.Textbody = txtBodyOk
End If
'on joint le log en attache
sendmail.AddAttachment txtLog
'Envoi du mail
sendmail.Send
'lecture du log
function GetFile(txtLog)
If txtLog<>"" Then
Dim FS, FileStream
Set FS = CreateObject("Scripting.FileSystemObject" )
on error resume Next
Set FileStream = FS.OpenTextFile(txtLog)
GetFile = FileStream.ReadAll
End If
End Function
'gestion des erreurs
function errorMessage(iTotal)
if (iTotal >= 0 AND iTotal <= 16 ) Then
Select Case iTotal
Case 0
errorMessage = "No errors occurred, and no copying was done. The source and destination directory trees are completely synchronized. "
Case 1
errorMessage = "One or more files were copied successfully (that is, new files have arrived)."
Case 2
errorMessage = "Some Extra files or directories were detected. Examine the output log for details. "
Case 3
errorMessage = "Certains fichiers ont été copiés. Fichiers supplémentaires étaient présents. Aucune erreur ne s'est produite."
Case 4
errorMessage = "Some Mismatched files or directories were detected. Examine the output log. Some housekeeping may be needed."
Case 5
errorMessage = "Certains fichiers ont été copiés. Une discordance entre certains fichiers. Aucune erreur s'est produite."
Case 6
errorMessage = "Il existe des fichiers supplémentaires et des fichiers qui ne correspondent pas. Pas de fichiers ont été copiés et aucune panne ne s'est produites. Cela signifie que les fichiers existent déjà dans le répertoire de destination."
Case 7
errorMessage = "Les fichiers ont été copiés, une incompatibilité de fichier était présente et des fichiers supplémentaires étaient présents."
Case 8
errorMessage = "Some files or directories could not be copied (copy errors occurred and the retry limit was exceeded).Check these errors further."
Case 16
errorMessage = "Serious error. Robocopy did not copy any files. Either a usage error or an error due to insufficient access privileges on the source or destination directories."
End Select
else
errorMessage= "Erreur non gérée, merci de consulter le log"
end if
End Function

---------------
collectionneur de pâtes thermiques

couak

il faut se baser sur le code retour http://ss64.com/nt/robocopy-exit.html

Je@nb

Modérateur
Kindly give dime

:jap: ne parse pas le fichier de log, le code retour de robocopy est suffisament clair pour te donner ces infos

tompouss

Petit chat

l'error level est récupérée comme ceci:

ROBOCOPY %_source% %_dest% %_what% %_options%
if errorlevel 0 echo %errorlevel% >C:\******\robocopy\errorlevelmercator.txt

le script vbs remanié:

Code :

'Ce script permet de parser un log robocopy pour detecter les erreurs de copies et d'envoyer le log par mail avec une alerte
Dim txtSMTPServer, txtPort, txtTo, txtFrom, txtSubject, txtBodyOk, txtBodyFailure, txtLog, strValue, iTotal, iPos, strText
'''''' A personnaliser ''''''''''''''''''''''''''''
txtSMTPServer = "127.0.0.1"
txtPort = 24
txtTo = "***@***.be"
txtFrom = "**@***.be"
txtSubject = "*** SQL backup status"
txtBodyOk = "Your Robocopy Backup Job was successfully completed - attached file has details. & vbNewline"
txtBodyFailure = "Your Robocopy Backup Job has completed with one or more errors - attached file has details. & vbNewline"
txtLog = "C:\***\robocopy\SQLBACKUPS.txt" 'chemin d'acces vers le log
txtErrorLevel = "C:\****\robocopy\errorlevelsql.txt"
'gestion des erreurs robocopy
' strText = GetFile(txtLog)
' iPos = 1
' Do While iPos <= Len(strText)
' If InStr(iPos, UCase(strText), "0X00000" ) > 0 Then
' iTotal = iTotal + 1
' iPos = InStr(iPos, UCase(strText), "0X00000" )_
' + Len("0X00000" )
' Else
' Exit Do
' End If
'Loop
strErrorlevel = GetFile(txtErrorLevel)
'-- --
'preparation du mail
Set sendmail = CreateObject("CDO.Message" )
'sendusing permet d'expliciter la facon d'envoyer le mail
' la valeur 2 utilise un client pour l'envoi du mail, il faut donc qu'il y en ai 1 d'installé et configuré
'la valeur 1 utilise le service smtp du server local (ou d'un server distant)
'http://msdn.microsoft.com/en-us/library/exchange/ms873037%28v=exchg.65%29.aspx
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 1
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = txtSMTPServer
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = txtPort
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendemailaddress" ) = txtFrom
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 0
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername" ) = "my@gmail.com"
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = "password"
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl" ) = false
sendmail.Configuration.Fields.Update
sendmail.From = txtFrom
sendmail.To = txtTo
sendmail.Subject = txtSubject
If strErrorlevel <= 3 Then
sendmail.Textbody = txtBodyOk & errorMessage(strErrorlevel) & vbNewline & "( Error level " & strErrorlevel &" )"
else
sendmail.Textbody = txtBodyFailure & errorMessage(strErrorlevel) & vbNewline & "( Error level " & strErrorlevel &" )"
End If
'on joint le log en attache
sendmail.AddAttachment txtLog
'Envoi du mail
sendmail.Send
'lecture du log
function GetFile(txtLog)
If txtLog<>"" Then
Dim FS, FileStream
Set FS = CreateObject("Scripting.FileSystemObject" )
on error resume Next
Set FileStream = FS.OpenTextFile(txtLog)
GetFile = FileStream.ReadAll
End If
End Function
function errorMessage(txtErrorLevel)
if (txtErrorLevel >= 0 AND txtErrorLevel <= 16 ) Then
Select Case txtErrorLevel
Case 0
errorMessage = "No errors occurred, and no copying was done. The source and destination directory trees are completely synchronized. "
Case 1
errorMessage = "One or more files were copied successfully (that is, new files have arrived)."
Case 2
errorMessage = "Some Extra files or directories were detected. Examine the output log for details. "
Case 3
errorMessage = "Certains fichiers ont été copiés. Des files supplémentaires étaient présents. Aucune erreur ne s'est produite."
Case 4
errorMessage = "Some Mismatched files or directories were detected. Examine the output log. Some housekeeping may be needed."
Case 6
errorMessage = "Il existe des fichiers supplémentaires et des fichiers qui ne correspondent pas. Aucun fichiers copiés et aucunr erreur apparue. Cela signifie que les fichiers existent déjà dans le répertoire de destination."
Case 7
errorMessage = "Les fichiers ont été copiés, une incompatibilité de fichier était présente et des fichiers supplémentaires étaient présents."
Case 8
errorMessage = "Some files or directories could not be copied (copy errors occurred and the retry limit was exceeded).Check these errors further."
Case 16
errorMessage = "Serious error. Robocopy did not copy any files. Either a usage error or an error due to insufficient access privileges on the source or destination directories."
End Select
else
errorMessage= "Unknow Error, please read the log"
end if
End Function

Mise à part des problemes de saut de ligne dans le body du mail ca fonctionne
Vous auriez des idées pour améliorer la gestion des erreur ?

Message édité par tompouss le 11-01-2013 à 11:29:29

---------------
collectionneur de pâtes thermiques

Je@nb

Modérateur
Kindly give dime

Les codes d'erreurs sont un masque binaire, là tu les catches pas tous.

Et tu te fais chier pour rien à lancer robocopy puis récuperer le code erreur en le mettant dnas un fichier alors qu'en 1 ligne de vbs tu as tout

tompouss

Petit chat

Ok je vois ce que je dois faire
merci pour ton aide

---------------
collectionneur de pâtes thermiques

tompouss

Petit chat

quand tu dis que les codes erreurs sont un masque binaire, ca veut dire que je suis sensé catcher une valeur comme celle ci: 0×10 ?
Or il me retourne un int
il fait la conversion auto en décimal ou quoi?

---------------
collectionneur de pâtes thermiques

Je@nb

Modérateur
Kindly give dime

un nombre que tu l'ai en décimale ou en hexa ça change rien c'est un nombre.

Qd je dis que c'est un masque c'est que si l'erreur est 7, c'est que c'est 4 + 2 + 1 donc l'erreur 4 2 et 1, si c'est 12, c'est 8+4 etc. Le lien donné plus haut te l'explique

tompouss

Petit chat

ok je viens de tilter

---------------
collectionneur de pâtes thermiques

Publicité

tompouss

Petit chat

Mieux comme ca

J'ai quand meme eu un errorlevel 0 sur un backup où il ya eu des changements

Je pense que ce serait mieux de reinitialiser la variable errorlevel à la fin du job

Code :

'Ce script permet de catcher l'error-level généré suite à un job robocopy pour detecter les erreurs de copies et d'envoyer le log par mail avec une alerte
Dim Jobname, txtSMTPServer, txtPort, txtTo, txtFrom, txtSubject, txtBodyOk, txtBodyFailure, txtLog, strValue, iTotal, iPos, strText
Set WshShell = CreateObject("WScript.Shell" )
'''''' A personnaliser ''''''''''''''''''''''''''''
Jobname = "*****"
txtSMTPServer = "******l"
txtPort = 24
txtTo = "it@******.be"
txtFrom = "help@********.be"
txtSubject = "*********
txtBodyOk = "Your Robocopy Backup Job was successfully completed - attached file has detail" & vbLf
txtBodyFailure = "Your Robocopy Backup Job has completed with one or more errors - attached file has details."& vbLf
txtLog = "C:\********\robocopy\BACKUPMERCATORS.txt" 'chemin d'acces vers le log
'txtErrorLevel = "C:\*********\robocopy\errorlevelmercator.txt"
errorlevel = WshShell.Run( Jobname, 0, true)
'gestion des erreurs robocopy
'strText = GetFile(txtLog)
'iPos = 1
' Do While iPos <= Len(strText)
' If InStr(iPos, UCase(strText), "0X00000" ) > 0 Then
' iTotal = iTotal + 1
' iPos = InStr(iPos, UCase(strText), "0X00000" )_
' + Len("0X00000" )
' Else
' Exit Do
' End If
'Loop
'strErrorlevel = GetFile(txtErrorLevel)
'-- --
'preparation du mail
Set sendmail = CreateObject("CDO.Message" )
'sendusing permet d'expliciter la facon d'envoyer le mail
' la valeur 2 utilise un client pour l'envoi du mail, il faut donc qu'il y en ai 1 d'installé et configuré
'la valeur 1 utilise le service smtp du server local (ou d'un server distant)
'http://msdn.microsoft.com/en-us/library/exchange/ms873037%28v=exchg.65%29.aspx
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 1
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = txtSMTPServer
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = txtPort
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendemailaddress" ) = txtFrom
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 0
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername" ) = "my@gmail.com"
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = "password"
sendmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl" ) = false
sendmail.Configuration.Fields.Update
sendmail.From = txtFrom
sendmail.To = txtTo
sendmail.Subject = txtSubject
If errorlevel <= 3 Then
if errorlevel = -1 Then
sendmail.Textbody = "No error-level catched, check log"
else
sendmail.Textbody = txtBodyOk & " Error-level "&errorlevel & vbLf &"Error details = " & errorMessage(errorlevel)
end if
else
sendmail.Textbody = txtBodyFailure & " Error-level :"&errorlevel & vbLf &"Error details = " & errorMessage(errorlevel)
End If
'on joint le log en attache
sendmail.AddAttachment txtLog
'Envoi du mail
sendmail.Send
function errorMessage(errorlevel)
if (errorlevel >= 0 AND errorlevel <= 16 ) Then
Select Case errorlevel
Case 0
errorMessage = "No change: No errors occurred, and no copying was done. The source and destination directory trees are completely synchronized. "
Case 1
errorMessage = "One or more files were copied successfully (that is, new files have arrived)."
Case 2
errorMessage = "Some Extra files or directories were detected. Examine the output log for details."
Case 3
errorMessage = "One or more files were copied successfully (that is, new files have arrived). Some Extra files or directories were detected. Examine the output log for details."
Case 4
errorMessage = "Some Mismatched files or directories were detected. Examine the output log. Some housekeeping may be needed."
Case 5
errorMessage = "OKCOPY + MISMATCHES"
Case 6
errorMessage = "MISMATCHES + XTRA"
Case 7
errorMessage = "OKCOPY + MISMATCHES + XTRA"
Case 8
errorMessage = " Some files or directories could not be copied (copy errors occurred and the retry limit was exceeded) Check these errors further."
Case 9
errorMessage = "One or more files were copied successfully but Some files or directories could not be copie (copy errors occurred and the retry limit was exceeded). Check these errors further."
Case 10
errorMessage = "FAIL + XTRA"
Case 11
errorMessage = "OKCOPY + FAIL + XTRA"
Case 12
errorMessage = "FAIL + MISMATCHES"
Case 13
errorMessage = "OKCOPY + FAIL + MISMATCHES"
Case 14
errorMessage = "FAIL + MISMATCHES + XTRA"
Case 15
errorMessage = "OKCOPY + FAIL + MISMATCHES + XTRA"
Case 16
errorMessage = "Serious error. Robocopy did not copy any files. Either a usage error or an error due to insufficient access privileges on the source or destination directories."
End Select
else
errorMessage= "Unknow Error, please read the log"
end if
End Function

FORUM HardWare.fr

Systèmes & Réseaux Pro

Infrastructures serveurs

Problème script robocopy

Sujets relatifs
Problème NAS Lacie 2big 4 Téra	IPCOP problème "No CD ROM Not Found"
Problème VPN Ipsec Orange > Orange [RESOLU]	[RESOLU]Problème d'accès internet client - Windows 2008 R2
Exchange 2010 problème time et database	problème réseaux pour créer un envirronnement cli/serveur
Probleme snort configuration	probleme script redémarrage server
probléme de connexion entre radius et ldap
Plus de sujets relatifs à : Problème script robocopy

Page générée en 0.205 secondes