Bom dia Erik,
O script abaixo faz o seguinte, fica pingando para um servidor, caso o retorno de ping não voltar, será enviado um email para as pessoas que você cadastrou !
Sua explicação no meu entender não ficou claro o que você realmente quer, mas acho que é isso!
strComputer = "."
nCont = 0
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Do
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '155.155.100.3'")
For Each objStatus in colPings
If IsNull(objStatus.StatusCode) _
or objStatus.StatusCode<>0 Then
nCont = nCont + 1
End If
if nCont >= 3 Then
EnviaMail
nCont = 0
End if
Next
'EXECUTAR A CADA 1 MINUTO
wscript.sleep (18000)
Loop
Sub EnviaMail
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "Email@email.com.br"
objEmail.To = "Email@email.com.br"
objEmail.Subject = "conexão com Problema - CAMERAS DESLIGADAS."
objEmail.Textbody = "Rede Não está pingando. Horário = "& Time &" e Data = "& date &""
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "155.155.100.7" (IP DO SERVIDOR DO EXCHANGE)
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 (PORTA DO SMTP)
objEmail.Configuration.Fields.Update
objEmail.Send
End sub
Rafael S. AMARAL
U. P. Mackenzie
