For regular backups of our Exchange 2007 email database server and to clear the all important log files we use the standard Backup Utility which is bundled with Windows 2003 Server. It does its job well except, unless you log on to the machine, you can’t tell if a backup failed or if it was sucessful – as there is no native reporting.<\/p>\n
The options you have are either to use a commercial third party backup application which includes reporting or create yourself a scheduled VB script to email you the backup logs. The later is exactly what I did.<\/p>\n
Below is my VB script that is run every morning from the exchange server. It sends an email to the IT distribution group with the latest backup log file in the body and as a text file attachment (the reason for the text file is a convenient way of storing as each text file is timestamped in the script).<\/p>\n
Option Explicit<\/p>\n
‘ ***********************************************************
\n‘ * Red Chilli exchange backup email reporting
\n‘ * by Simon Page
\n‘ ***********************************************************<\/p>\n‘ Dim variables
\nDim oFSO, oWshNetwork, oCDO, oFolder, oFiles, oFile
\nDim filesys, filesys2, objFile, objFile2, objTextStream, copyBody
\nDim strFileName, strComputerName<\/p>\n‘ Create Objects
\nSet oFSO = CreateObject(“Scripting.FileSystemObject”)
\nSet oWshNetwork = WScript.CreateObject(“WScript.Network”)
\nset filesys = CreateObject (“Scripting.FileSystemObject”)
\nset filesys2 = CreateObject (“Scripting.FileSystemObject”)<\/p>\n‘ Copy file
\nset objFile = filesys.GetFile(“c:\\WINDOWS\\Tasks\\SchedLgu.Txt”)
\nobjFile.Copy(“c:\\Logs\\SchedLgU-” & Replace(CStr(Date()), “\/”, “-“) & “.Txt”)<\/p>\n‘ Open copied file for reading
\nset objFile2 = filesys2.GetFile(“c:\\Logs\\SchedLgU-” & Replace(CStr(Date()), “\/”, “-“) & “.Txt”)
\nset objTextStream = objFile2.OpenAsTextStream(1,True)<\/p>\ncopyBody = objTextStream.ReadAll<\/p>\n
‘ Set constants
\nConst BACKUP_LOG_PATH = “C:\\Logs”
\nConst EMAIL_RECIPIENT = “email@domain.com”<\/p>\n‘ Set variable defaults
\nstrFileName = “SchedLgU-” & Replace(CStr(Date()), “\/”, “-“) & “.Txt”
\nstrComputerName = oWshNetwork.ComputerName<\/p>\n‘If strFileName <> “” Then<\/p>\n
EmailLog(strFileName)<\/p>\n
‘End If<\/p>\n
Sub EmailLog(logFilePath)<\/p>\n
Set oCDO = CreateObject(“CDO.Message”)<\/p>\n
oCDO.Subject = “EXCHANGE BACKUP FULL LOG – ” & strComputerName & ” – ” & CStr(Date())
\noCDO.From = “email@domain.com”
\noCDO.To = EMAIL_RECIPIENT<\/p>\noCDO.TextBody = copyBody<\/p>\n
oCDO.AddAttachment BACKUP_LOG_PATH & “\\” & logFilePath<\/p>\n
oCDO.Configuration.Fields.Item _
\n(“http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpauthenticate<\/a>“) = _
\n1<\/p>\noCDO.Configuration.Fields.Item _
\n(“http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendusername<\/a>“) = _
\n“USERNAME”<\/p>\noCDO.Configuration.Fields.Item _
\n(“http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendpassword<\/a>“) = _
\n“PASSWORD”<\/p>\noCDO.Configuration.Fields.Item _
\n(“http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendusing<\/a>“) = 1<\/p>\noCDO.Configuration.Fields.Item _
\n(“http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpserver<\/a>“) = _
\n“SMTP SERVER”<\/p>\n