| Author |
 Topic  |
|
|
grobi
Starting Member
Germany
1 Posts |
 Posted - February 10 2011 : 09:43:16
|
Hello,
to keep an eye on serveral servers all of them doing there backup with macrium reflect is a bit costly. Why not having an email notification after finishing the backup.
best regards
ralf grothusen
Jede Dummheit findet einen, der sie macht. (T. Williams) |
|
|
C.Bamford
Moderator
United Kingdom
1002 Posts |
Posted - February 10 2011 : 09:46:35
|
Hi,
Thanks for contacting us.
The current version of Macrium Reflect employs VBScript to enable customers to send emails on backup completion, please see the following KB article:
http://www.macrium.com/KB/KnowledgebaseArticle50055.aspx
Kind regards.
Chris.
Macrium Support |
 |
|
|
VBDavie
New Member
33 Posts |
Posted - July 01 2011 : 00:22:50
|
More specifically, you can control the PORT numbers and passwords etc.. Here is an example that "I" use form my email notifications.
'******************************************************************************
'*
'*
'* Module Name: My Backup 8-3 inc 1.vbs
'*
'* Abstract: This is a template VB Script file generated by Reflect v4.2
'* Modify to add your own functionality if required
'*
'*
'******************************************************************************
OPTION EXPLICIT
' call the main function
Call VBMain()
'******************************************************************************
'* Sub: VBMain
'*
'* Purpose: This is main function to start execution
'*
'* Input: None
'*
'* Output: None
'*
'******************************************************************************
Sub VBMain()
Dim objShell
Dim ExitCode
' The following function call ensures that this script only runs once a day
If HasRunToday Then
WScript.Quit
End If
Set objShell = WScript.CreateObject("WScript.Shell")
' Do the backup
ExitCode = Backup ("""G:\Program Files\Macrium\Reflect\reflect.exe"" -e -w ""G:\Documents and Settings\Davie\My Documents\Reflect\My Backup 8-3 inc 1.xml""")
' done
Set objShell = nothing
wscript.quit(ExitCode)
End Sub
'******************************************************************************
'* Function: Backup
'*
'* Purpose: Calls Reflect.exe passing an XML BDF as a parameter
'* Optionaly logs output to file
'*
'* Input: strCmdLine Command Line Arguments
'* Output: Exit Code
'*
'******************************************************************************
Function Backup(Byref strCmdLine)
Dim objShell
Dim objExecObject
Dim strLine
Dim objFS
Dim objNewFile
Dim strLogFileName
' Run the backup or image
Set objShell = WScript.CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec(strCmdLine)
' Log to file
strLogFileName = "G:\Documents and Settings\Davie\My Documents\Reflect\log-" & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & " " & Hour(Time) & "." & Minute(Time) & "." & Second(Time) & ".txt"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objNewFile = objFS.OpenTextFile(strLogFileName , 8, 1)
Do Until objExecObject.StdOut.AtEndOfStream
strLine = objExecObject.StdOut.ReadLine()
If Instr(strLine , "%") = 0 Then
objNewFile.WriteLine strLine
end if
Loop
objNewFile.Close
set objFS = nothing
' Wait for the process to finish
Do While objExecObject.Status = 0
WScript.Sleep 100
Loop
if objExecObject.exitcode = 2 then
' Handle XML validation error
elseif objExecObject.exitcode = 1 then
' Handle backup error
SendEmail "Macrium Reflect - Backup Failed", "Type your email message here for a failed backup", strLogFileName
objShell.LogEvent 1, "Macrium Reflect - Backup Failed"
elseif objExecObject.exitcode = 0 then
' Everything OK
objShell.LogEvent 0, "Macrium Reflect - Successful Backup"
SendEmail "Macrium Reflect - Successful Backup", "Type your email message here for a successful backup", strLogFileName
end if
Backup = objExecObject.exitcode
Set objExecObject = nothing
Set objShell = nothing
End Function
'******************************************************************************
'* Function: HasRunToday
'*
'* Purpose: determines if this script has run today
'*
'*
'* Input: None
'* Output: true if has run today false otherwise
'*
'******************************************************************************
Function HasRunToday
Dim RegScriptKey
Dim LastRunDate
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
RegScriptKey = "HKCU\SOFTWARE\Macrium\Reflect\Scripts\" & WScript.ScriptFullName & "\LastRun"
'Check if script has run today
ON ERROR RESUME NEXT
LastRunDate = objShell.RegRead(RegScriptKey)
If LastRunDate = cstr(Date) Then
HasRunToday = true
Else
objShell.RegWrite RegScriptKey, Date,"REG_SZ"
HasRunToday = false
End If
Set objShell = nothing
End Function
'******************************************************************************
'* Sub: SendEmail
'*
'* Purpose: Uses CDO to send an email message
'*
'* Input: strSubject subject text
'* strBody main body of the email
'* strLogFileName file name of the log file to attach to the email
'* Output: None
'*
'******************************************************************************
Function SendEmail(ByRef strSubject, _
ByRef strBody, _
ByRef strLogFileName)
Dim objMessage
Set objMessage = CreateObject("CDO.Message")
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.networkservices.com"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/SMTPServerPort")=587
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/SMTPAuthenticate")=1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/SendUserName")="xxxxxx"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/SendPassword")="mypassword"
objMessage.Configuration.Fields.Update
objMessage.Subject = strSubject
objMessage.From = "xxxxxx@smatters.com"
objMessage.To = "xxxxxx@smatters.com"
objMessage.TextBody = strBody
objMessage.AddAttachment strLogFileName
objMessage.Send
Set objMessage = nothing
End Function quote:
So, if you look near the bottom, you will see "SMTPServerPort" that is the area where you can see all the customizations that I set up to send my emails. I think the standard port is like 25 or 110 or something like that, but a number of ISPs now use 587
Hope this clears things up for you.
Davie
Thanks in advance
Davie
creator of Photo Jockey www.photojockey.com |
|
|
| |
Topic |
|
|
|
RSS Feed
KB
Email notification
Forum Locked
