Para mi gusto es un poco lento si no hay nada en una IP (Ping() por defecto espera 4 segundos), funciona bastante bien si primero comprueba si hay algo en la IP y luego hace un ping mas extenso:
Código: Seleccionar todo
Ping($IP, 200)
If @error Then ContinueLoop
$aping = Ping($IP, 2000)