Local backup - using robocopy and scripting

Hi all,

I have put together a script that will run a robocopy job, then create a log file based on the date and time the job completed. I want to know if there is a way to interigrate this log file on completion and then if there are errors send an email with the errors included. If the job has no errors then send an email with backup was successful.

Does anyone know how this could be done?

thanks
LVL 1
ranskiAsked:
Who is Participating?
 
simonseztechConnect With a Mentor Commented:
You mean something like this ?
objEmail.Textbody = "Check this  <a href="c:\log\(objNewest)">link</a>"
0
 
simonseztechCommented:
Have a look herehttp://www.petri.co.il/send_mail_from_script.htmYou can use exit code of robocopyhttp://blogs.technet.com/b/deploymentguys/archive/2008/06/16/robocopy-exit-codes.aspxIf you have little budget for around 20 box you will gethttp://www.robocopyplus.com/     RoboCopyPlus adds the following functionality to    Microsoft ROBOCOPY:        * Email notification on 'Success', 'Warnings' or 'Errors'.        * Log file filtering, showing only relevant information, like warnings, errors and other exceptions.        * Smart logfile attachments, e.g. on warnings or errors only.Hope it help.
0
 
ranskiAuthor Commented:
thanks, any idea how to get the below script to point a link to the latest log file rather than attach it?
 

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("c:\log\")
datNewest = #1/1/1970#
For Each objFile In objFolder.Files
  If objFile.DateLastModified > datNewest Then
    datNewest = objFile.DateLastModified
    objNewest = objFile
  End If
Next
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "test@test.com"
objEmail.To = "test2@test.com"
objEmail.Subject = "Backup"
objEmail.Textbody = "check the attached log file.(objNewest)" 
objEmail.AddAttachment objNewest
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.test.com"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objEmail.Configuration.Fields.Update
objEmail.Send

Open in new window

0
 
ranskiAuthor Commented:
thanks
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.