Description :
Ce script VBS envoi un mail en cas de non-réponse à un Ping.
Script :
' Compléter le champ Adresse_IP par celle du routeur à tester.
' Compléter le champ Mail_From par l'e-mail de l'expéditeur.
' Compléter le champ Mail_To par l'e-mail du destinataire.
' Compléter le champ Adresse_serveur_smtp par celui de votre FAI
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPingedComputers = objWMIService.ExecQuery _
("Select * from Win32_PingStatus Where Address = 'Adresse_IP'")
For Each objComputer in colPingedComputers
If objComputer.StatusCode = 0 Then
Else
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "Mail_From"
objEmail.To = "Mail_To"
objEmail.Subject = "Notification - Pas de réponse au PING du Routeur"
objEmail.Textbody = "Le Routeur ne répond pas au PING !"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"Adresse_serveur_smtp"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End If
Next
 Proposer un script
|
Notre avis :
Votre avis :
Réactions :
0
Votants :
23
Visites :
11292
|
Accès
direct aux définitions :