Buenas a todos,
Durante muchos años administré los servidores de muchos clientes pequeños y medianos. No todos tenían implementado soluciones corporativas de Backup que enviaran el reporte con el resultado por correo electrónico, y este reporte es especialmente importante para tener un control.
Cuando hablamos de 10 servidores quizás tengamos tiempo de entrar uno por uno para ver el .log, y tomar acciones correctivas, pero cuando hablamos de redes con 3 servidores por cliente (promedio) y multiplicamos eso por 40, se hace inviable.
En esta nota mostraremos dos alternativas.
He aquí la primera, con este script (provisto por https://www.smallbizserver.net/) podremos recibir una copia del log por correo electrónico.
NOTA: Este script requiere IIS o Exchange instalado
'Send using the Pickup directory on the IIS server.
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Const cdoSendUsingPickup = 1
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
' TODO: Replace <PICKUP DIRECTORY> with path to your pickup directory
' Typically, c:\Inetpub\mailroot\pickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")="C:\Program Files\Exchsrvr\Mailroot\vsi 1\PickUp"
.Update
End With
' Build HTML for message body.
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b>Attached is your backup log</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
Dim iBP
With iMsg
Set .Configuration = iConf
.To = "mariette@matterhorn.xs4all.nl"
.From = "NTBackup"
.Subject = "NTBackup Log"
.HTMLBody = strHTML
'TODO: if adding an attachment,
'uncomment the next line and alter file path as required
Set iBP = iMsg.AddAttachment("c:\backup\backlog.txt")
.Send
End With
' Clean up variables.
Set iBP = Nothing
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
——————————–
Otra alternativa, que no requiere IIS o Exchange, es usar alguna aplicación que pueda enviar un correo electrónico y adjuntar un archivo. Una de ellas se llama BMAIL. En este ejemplo, lo primero que haremos es juntar todos los logs en un mismo archivo, para después adjuntarlo:
type "c:\Documents and Settings\Administrador\Configuración local\Datos de programa\Microsoft\Windows NT\NTBackup\data\*.log" >c:\backup\backlog.txt
Luego, ese mismo archivo lo mandamos por correo:
C:\Backup\bmail -s direccion_ip_de_smtp -f from@dominio.com -t to@dominio.com.ar -a "Backup" -m "c:\backup\backlog.txt"
Con eso es todo, espero que les sirva.
Vernocchi Pablo
Me pareció muy práctico!!!!!!
Una salvedad: en el script usando bmail, no hay que poner comillas en el path ni en el asunto del mail
Saludos