Modifier un code en VB

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