Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 614
  • Last Modified:

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
0
ranski
Asked:
ranski
  • 2
  • 2
1 Solution
 
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
 
simonseztechCommented:
You mean something like this ?
objEmail.Textbody = "Check this  <a href="c:\log\(objNewest)">link</a>"
0
 
ranskiAuthor Commented:
thanks
0

Featured Post

Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now