VB llama al comando PING

Pings de función pública (strMachines como cadena) como booleano

aMachines = Split(strMachines, ";")

Para cada máquina en aMachines

Establecer objPing = GetObject ("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32 _PingStatus donde dirección = '" & máquina & "'")

Para cada objStatus en objPing

Si IsNull(objStatus.StatusCode) O objStatus.StatusCode <> 0 Entonces

Debug.Print ("la máquina " & la máquina & " no es accesible")

Pings = False

De lo contrario

Pings = Verdadero

Finalizar si

Siguiente

Siguiente

Fin Función

Porque hoy en día los enrutadores domésticos tienen controles integrados (microsoft internet transfer control 6.0)

Los controles estarán bien. No sé el modelo específico de enrutador que estás usando. Tampoco conozco el código específico para reiniciar la página, así que no puedo proporcionarte el resto del código.

Es un poco agotador, pero puedo. . . . . .

Aunque un poco cansado.