Desculpa Josiel. É que entendo muito pouco de script, praticamente nada! O Problema agora está em juntar os dois. Cheguei a este modelo, porem está com erro de compilação logo após a ultima linha linha NEXT esperado!
Desde já agradeço.
'### Inicio do Script ###
strComputer = "."
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objEmail = CreateObject("CDO.Message")
'Inicia o backup
Comando = "ntbackup backup systemstate /J ""Backup Job 1"" /L:f /F C:\backup.bkf"
WshShell.Run(Comando),0,true
wscript.echo comando
'### 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
'### Coleta Informações do Log do NTBKP ###
set FSo = CreateObject("Scripting.FileSystemObject")
'caminho da Pasta
strPasta="C:\Documents and Settings\jbrandao\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\"
set folder = FSO.getFolder (strPasta)
for each file in folder.files
'aqui é O nome do arquivo
nome = file.name
wscript.echo nome
'### Envia LOG Envet para 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") = "xxxxxxxxxxxxxxxxxx.com"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.From = "NTBACKUP"
objEmail.Subject = "Log NtBackup"
objEmail.To = "jorge.brandao@heringer.com.br"
objEmail.Textbody = Body
objEmail.AddAttachment strPasta & nome
objEmail.Configuration.Fields.Update
objEmail.Send
SharePoint Professinal
MCTS: WSS 3.0
Microsoft Profissional Cinco Estrelas: SharePoint Service 3.0
Microsoft TechNet Experience: Windows Server 2008
Microsoft TechNet Experience: Windows Vista
www.canalsharepoint.com.br
www.brandaonetwork.com.br
