Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Local backup - using robocopy and scripting

Posted on 2010-09-17
4
Medium Priority
?
612 Views
Last Modified: 2012-05-10
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
Comment
Question by:ranski
  • 2
  • 2
4 Comments
 
LVL 7

Expert Comment

by:simonseztech
ID: 33701021
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
 

Author Comment

by:ranski
ID: 33702017
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
 
LVL 7

Accepted Solution

by:
simonseztech earned 2000 total points
ID: 33703701
You mean something like this ?
objEmail.Textbody = "Check this  <a href="c:\log\(objNewest)">link</a>"
0
 

Author Closing Comment

by:ranski
ID: 33906302
thanks
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Batch, VBS, and scripts in general are incredibly useful for repetitive tasks.  Some tasks can take a while to complete and it can be annoying to check back only to discover that your script finished 5 minutes ago.  Some scripts may complete nearly …
Restoring deleted objects in Active Directory has been a standard feature in Active Directory for many years, yet some admins may not know what is available.
The viewer will learn how to create and use a small PHP class to apply a watermark to an image. This video shows the viewer the setup for the PHP watermark as well as important coding language. Continue to Part 2 to learn the core code used in creat…
The viewer will learn how to create a basic form using some HTML5 and PHP for later processing. Set up your basic HTML file. Open your form tag and set the method and action attributes.: (CODE) Set up your first few inputs one for the name and …
Suggested Courses

886 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question