Outro VBScript para ler arquivo txt

[Junior Borges]

Bom dia pessoal,

 

Estou tentando fazer um monitoramento de alguns servidores aqui da empresa,

 

Eu achei um programinha muito bacana que da um comando ping no hostname ou ip da máquina, e gera um arquivo de log com o resultado.

pinginfoview

 

Eu configurei o programa para salvar só os pings com falha no log. Ai que vem a parte que estou me quebrando.

 

Eu precisava ler esse arquivo txt e enviar o resultado para um e-mail. Se caso algum servidor ficar offline eu ser notificado.

 

 

Código abaixo para envio de e-mail.

Set objEmail = CreateObject("CDO.Message")


objEmail.From = "REMETENTE"

objEmail.Subject = "Teste"
objEmail.To = "DESTINATÁRIO"

'objEmail.AddAttachment "Caminho do anexo"

objEmail.Textbody = "Teste de e-mail"


objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"SERVIDOR"
objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Configuration.Fields.Update
objEmail.Send