El programa parece morir cuando VB ejecuta el bucle. ¿Cómo solucionarlo?

El propio Windows tarda en acceder * * * a las carpetas compartidas.

Puedes hacer ping a todas las máquinas a las que quieras acceder y regresar al host en línea.

Finalmente, verifique la configuración con un host en línea para ahorrar tiempo.

Yo uso el script WMI para hacer ping, puedes modificarlo tú mismo.

Subcomando privado 1_Click()

StrMachines = "Nombre del equipo o IP; Split"

aMachines = Split(strMachines, ";))'Tú también Tú puede configurar directamente una matriz para almacenar todas las IP de host o nombres de máquinas que se verificarán

Para cada máquina en la máquina

set obj ping = GetObject(" winmgmts:{ nivel de suplantación. = suplantar } ").ExecQuery(" seleccione * de Win32 _ estado de ping donde dirección = ' " & máquina y '")

Para cada estado de objeto en el objeto

If IsNull( objStatus.StatusCode) u objStatus. StatusCode & lt& gtentonces 0

Depurar. Imprime "máquina" y . Máquinas e Ingeniería. "inalcanzable" si no funciona.

Otro

Depuración. Prensas e imprentas. Máquinas e Ingeniería. "En línea" Si la máquina está en línea, puede crear una matriz de máquinas en línea.

Terminará si...

Entonces

Entonces

Finalizar conector

La premisa es que su computadora LAN Sin firewall ni necesidad de hacer ping.