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
| 'Renomage du fichier de log---------------V
ON ERROR RESUME NEXT
for i = 1 to 10
'wscript.echo i
Set fso=CreateObject("Scripting.FileSystemObject")
fso.CopyFile "c:\Documents and Settings\Administrateur\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\backup0" & i &".log", "c:\Documents and Settings\Administrateur\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\backup.log",TRUE
next
WScript.Sleep 100
'Convertion du fichier de USC-2 à UTF-8---------------V
Dim wshShell
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "cmd /c iconv -f UCS-2-INTERNAL -t UTF-8 ""c:\Documents and Settings\Administrateur\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\backup.log"" > ""c:\Documents and Settings\Administrateur\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\backup2.log""", 0, True
'MsgBox "Conversion Finie"
Set wshShell = Nothing
WScript.Sleep 100
'Déclaration de la fonction d'envoie de mail
Public Sub SendMail(Expediteur,Destinataire,Sujet,Message,Smtp,Port)
Set Mail = CreateObject("CDO.Message")
With Mail
.From=Expediteur
.To=Destinataire
.Subject=Sujet
.TextBody=Message
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Smtp
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port
.Configuration.Fields.Update
.Send
End With
End Sub
'Lecture du fichier & envoie de mail---------------V
mot1 = "L'opération ne s'est pas terminée correctement."
mot2 = "L'opération n'a pas été effectuée car le média spécifié n'a pas été trouvé."
mot3 = "Le média requis n'a pas pu être monté. L'opération a été abandonnée."
fichier_lecture_1 = "c:\Documents and Settings\Administrateur\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\backup2.log"
'wscript.echo fichier_lecture_1
Set fso = CreateObject("Scripting.FileSystemObject")
set fichier_lecture_2 = fso.opentextfile(fichier_lecture_1, 1, true, ModeUnicode)
do until fichier_lecture_2.atendofstream
chaine = fichier_lecture_2.readline()
'wscript.echo chaine
if instr(1, chaine, mot1) > 0 then
wscript.echo "mail 1 en cour"
'Si erreur envoie d'un email
SendMail "ErreurSAV@noreply.net","aurelien@aide-info.fr","Erreur de sauvegarde chez Aide-info","Impossible d'effectuer la sauvegarde car : L'opération ne s'est pas terminée correctement.","smtp.orange.fr","25"
'SendMail "ErreurSAV@noreply.net","franck@aide-info.fr","Erreur de sauvegarde chez X","Impossible d'effectuer la sauvegarde car : L'opération ne s'est pas terminée correctement.","smtp.orange.fr","25"
'wscript.echo "mail finis"
ElseIf instr(1, chaine, mot2) > 0 then
wscript.echo "mail 2 en cour"
'Si erreur envoie d'un email
SendMail "ErreurSAV@noreply.net","aurelien@aide-info.fr","Erreur de sauvegarde chez Aide-info","Impossible d'effectuer la sauvegarde car : L'opération n'a pas été effectuée car le média spécifié n'a pas été trouvé.","smtp.orange.fr","25"
'SendMail "ErreurSAV@noreply.net","franck@aide-info.fr","Erreur de sauvegarde chez Aide-info","Impossible d'effectuer la sauvegarde car : L'opération n'a pas été effectuée car le média spécifié n'a pas été trouvé.","smtp.orange.fr","25"
'wscript.echo "mail finis"
ElseIf instr(1, chaine, mot3) > 0 then
'wscript.echo "mail 3 en cour"
'Si erreur envoie d'un email
SendMail "ErreurSAV@noreply.net","aurelien@aide-info.fr","Erreur de sauvegarde chez Aide-info","Impossible d'effectuer la sauvegarde car : Le média requis n'a pas pu être monté. L'opération a été abandonnée.","smtp.orange.fr","25"
'SendMail "ErreurSAV@noreply.net","franck@aide-info.fr","Erreur de sauvegarde chez Aide-info","Impossible d'effectuer la sauvegarde car : Le média requis n'a pas pu être monté. L'opération a été abandonnée.","smtp.orange.fr","25"
'wscript.echo "mail finis"
End If
loop
fichier_lecture_2.close
set fichier_lecture_2 = nothing
set fso = nothing |
Partager