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
|
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' DEBUT DE SCRIPT
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
On Error Resume Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' DEFINITION DES VARIABLES
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' COMPTER LES ERREURS NTBACKUP DANS L'OBSERVATEUR D'EVENEMENT DEPUIS LA DERNIERE SAUVEGARDE
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set colResult = objWMIService.ExecQuery("Select Type from Win32_NTLogEvent WHERE EventType<3 AND Logfile='Application' AND SourceName='NTBackup' AND TimeGenerated > '" & WScript.Arguments(1) & "'")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' SI ERREUR DE SAUVEGARDE
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If colResult.Count>0 Then
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' RETROUVER FICHIER LOG
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const Path = "C:\Documents and Settings\operateur\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\"
Dim fso, Dossiers, fic, fichiers, strListe, f, r
Dim Valeur, imax, z, Cible, liste, fichierlog, Message
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(Path)
Set fic = Dossiers.Files
imax = 0
For Each fichiers In fic
Set f = fso.GetFile(fichiers)
imax = imax + 1
ReDim Preserve Tableau(2, imax)
Tableau(1, imax) = f.Name
Tableau(2, imax) = f.DateLastModified
Valeur = 0
For imax = 1 To imax - 1
If CDate(Tableau(2, imax)) < CDate(Tableau(2, imax + 1)) Then
For z = 1 To 2
Cible = Tableau(z, imax)
Tableau(z, imax) = Tableau(z, imax + 1)
Tableau(z, imax + 1) = Cible
Next
Valeur = 1
End If
Next
Next
liste = ""
liste = Tableau(1, 1)
Set fso = Nothing
Set Dossiers = Nothing
Set fic = Nothing
Set f = Nothing
fichierlog = ""
fichierlog = Path&liste
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' RECHERCHE DES ERREURS NTBACKUP DANS L'OBSERVATEUR D'EVENEMENT
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Message = ""
Message = "Erreur de sauvegarde sur serveur " & WScript.Arguments(0) & VbCrLf
Set colItems = objWMIService.ExecQuery("Select * from Win32_NTLogEvent WHERE EventType<3 AND Logfile='Application' AND SourceName='NTBackup' AND TimeGenerated > '" & WScript.Arguments(1) & "'",,48)
For Each objItem in colItems
Message = Message & "Type: " & objItem.Type
Message = Message & VbCrLf
Message = Message & "EventCode: " & objItem.EventCode
Message = Message & VbCrLf
Message = Message & "Message: " & objItem.Message
Message = Message & VbCrLf
Next
Wscript.Echo Message
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' ENVOYER EMAIL ERREUR
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim oCDO
Set oCDO = CreateObject("CDO.Message")
With oCdo
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.free.fr"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "monmail@free.fr"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Configuration.Fields.Update
.Subject = "Erreur de sauvegarde sur " & WScript.Arguments(0)
.From = "monmail@free.fr"
.To = "monmail@free.fr"
.TextBody = Message
.AddAttachment fichierlog
.Send
End With
End If |
Partager