Galera,
Tenho o seguinte script abaixo e esta funcionando, porém, queria fazer uma alteração nele..
Ele faz o backup em uma fita DAT, grava no event viewer o resultado do backup, aguarda o backup finalizar e manda via e-mail uma notificação contendo o resultado do event viewer para um email determinado.
O que eu queria alterar é para que ao invés de ser enviado por e-mail o resultado do event viewer, ele efetuasse o envio do conteúdo existente no log do backup do NTBackup que é gerado no momento que o mesmo finaliza. Em todo
caso, esse log fica armazenado no seguinte local:
C:\Documents and Settings\%username%\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\backup01.log
Teria como???
strComputer
= "."
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objShell = Wscript.CreateObject("Wscript.Shell")
'Inicia
o backup
DateInfo
= """" & Now & """"
Filecfg
= "@C:\backup_diario.bks"
Opts = " /v:no /r:no /rs:no /hc:on /m normal /l:s"
Name = " backup"
Midia = """LTO Ultrium"""
Command
= "ntbackup.exe backup " & Filecfg & " /n " & DateInfo & " /d " & DateInfo & Opts & " /j " & Name & " /p " & Midia & " /UM "
objShell.Run
"cmd /c " & Command
'### Aguarda o Backup finalizar ###
Repete = 0
Do While Repete = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'ntbackup.exe'")
If colProcesses.Count = 0 Then
Repete = 1
Else
WScript.Sleep 5000
End If
Loop
'### Coleta informacoes do event viewer ###
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'Application' and " _
& "EventCode = '8019'")
For Each objEvent in colLoggedEvents
Body = "Computer Name: " & objEvent.ComputerName & vbcrlf
Body = Body & "Event Code: " & objEvent.EventCode & vbcrlf
Body = Body & "Message: " & objEvent.Message & vbcrlf
Body = Body & "Event Type: " & objEvent.Type & vbcrlf
Body = Body & "User: " & objEvent.User
Next
'wscript.echo body
'### Envia o e-mail ###
Set objEmail = CreateObject("CDO.Message")
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.intranet.teste.com.br"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "teste@teste.com.br"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "teste123"
objEmail.Configuration.Fields.Update
objEmail.From = "BACKUP@teste.com.br"
objEmail.Subject = "Log NtBackup"
objEmail.To = "teste@teste.com.br"
objEmail.Textbody = Body
objEmail.Send
objEmail.From = "BACKUP@teste.com.br"
objEmail.Subject = "Log NtBackup"
objEmail.To = "teste2@teste.com.br"
objEmail.Textbody = Body
objEmail.Send
Rombesso
