Código:
Código: Selecionar todos
Option Explicit
‘ ***************************************************************
‘ * Notificação por E-mail para o NTBackup
‘ ***************************************************************
‘ Variavéis
Dim oFSO, oWshNetwork, oCDO, oFolder, oFiles, oFile
dim strFileName, strComputerName
‘ Cria Objetos
Set oFSO = CreateObject(“Scripting.FileSystemObject”)
Set oWshNetwork = WScript.CreateObject(“WScript.Network”)
‘ Seta Constantes
Const BACKUP_LOG_PATH = “DIRETORIO DE ARMAZENAMENTO DOS LOGS”
Const EMAIL_RECIPIENT = “EMAIL DE DESTINO”
‘ Seta variaveis Default
strFileName = “”
strComputerName = oWshNetwork.ComputerName
‘ Inicia o Script
Set oFolder = oFSO.GetFolder(BACKUP_LOG_PATH)
Set oFiles = oFolder.Files
For Each oFile in oFiles
If oFSO.GetExtensionName(oFile.Name) = “log” Then
If DateValue(oFile.DateLastModified) = Date() Then
strFileName = oFile.Name
Exit For
End If
End If
Next
If strFileName <> “” Then
EmailLog(strFileName)
Else
EmailError
End If
Sub EmailLog(logFilePath)
Set oCDO = CreateObject(“CDO.Message”)
oCDO.Subject = “NTBackup – NOME DO CLIENTE – ” & strComputerName
oCDO.From = strComputerName & “@DOMINIO.COM.BR”
oCDO.To = EMAIL_RECIPIENT
oCDO.TextBody = “Log de backup de: ” & strComputerName
oCDO.AddAttachment BACKUP_LOG_PATH & “\” & logFilePath
oCDO.Configuration.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
oCDO.Configuration.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) =”SERVIDOR SMTP”
oCDO.Configuration.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
oCDO.Configuration.Fields.Item _ (“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = _ 1
oCDO.Configuration.Fields.Item _ (“http://schemas.microsoft.com/cdo/configuration/sendusername”) = _ “LOGIN”
oCDO.Configuration.Fields.Item _ (“http://schemas.microsoft.com/cdo/configuration/sendpassword”) = _ “SENHA”
oCDO.Configuration.Fields.Update
oCDO.Send
set oCDO = Nothing
End Sub
Sub EmailError
Set oCDO = CreateObject(“CDO.Message”)
oCDO.Subject = “NTBackup – NOME DO CLIENTE – ” & strComputerName
oCDO.From = strComputerName & “@DOMINIO.COM.BR”
oCDO.To = EMAIL_RECIPIENT
oCDO.TextBody = “Nenhum log de backup encontrado em: ” & strComputerName & ” , na data de Hoje.”
oCDO.Configuration.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
oCDO.Configuration.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) =”SERVIDOR SMTP”
oCDO.Configuration.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
oCDO.Configuration.Fields.Item _ (“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = _ 1
oCDO.Configuration.Fields.Item _ (“http://schemas.microsoft.com/cdo/configuration/sendusername”) = _ “LOGIN”
oCDO.Configuration.Fields.Item _ (“http://schemas.microsoft.com/cdo/configuration/sendpassword”) = _ “SENHA”
oCDO.Configuration.Fields.Update
oCDO.Send
set oCDO = Nothing
End Sub
set oFSO = Nothing
Set oWshNetwork = Nothing