Modifier un code en VB

spartiates -  
 spartiates -
Bonjour,



Voici un script VB que j'ai récupérer pour faire un ping sur une machine distante, et si le ping ne répond pas ça m'envoie un mail.

Par contre j'aimerai savoir comment rajouter d'autre adresse IP a pinger dans ce code ?

Voici le code

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPingedComputers = objWMIService.ExecQuery _
("Select * from Win32_PingStatus Where Address = '192.168.1.10'")


For Each objComputer in colPingedComputers
If objComputer.StatusCode = 0 Then
Else
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "mail@xxxx.com"
objEmail.To = "mail@xxxx.com"
objEmail.Subject = "Notification - Pas de réponse au PING du Disque dur"
objEmail.Textbody = "Le Disque dur 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") = _
"smtp.xxxx.com"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End If
Next


Par avance merci

3 réponses

Réponse 1 / 3
Profil bloqué
 
Rajouter ou modifier ? Si c'est modifier ...
("Select * from Win32_PingStatus Where Address = 'X.X.X.X'")
Je pense ... mais je ne suis pas programmeur ...
0
Réponse 2 / 3
spartiates
 
Oui j'aimerai rajouter des IP pour pouvoir faire des PING sur plusieurs machines
0
Profil bloqué
 
peut etre en rajoutant :
("Select * from Win32_PingStatus Where Address = '192.168.1.10' and = ' X.X.X.X' and = ' Y.Y.Y.Y'")

j'ai bien dis peut être !
0
Réponse 3 / 3
spartiates
 
Je viens de tester mais malheureusement ça ne fonctionne pas ! En tous cas merci de bien vouloir m'aider.
0