Cómo utilizar VB VBA para realizar una prueba de Ping

Automatizar el proceso de hacer ping a diferentes direcciones utilizando Visual Basic para Aplicaciones ( VBA) que puede ahorrar mucho tiempo, especialmente cuando se tiene que hacer ping a varias direcciones . Para hacer ping a una dirección significa realizar una prueba y determinar si la dirección es accesible a través de la red . VBA es muy similar a VB y se puede utilizar en cualquier aplicación de Microsoft Office, como Excel. Para hacer ping a un host, es necesario utilizar unas variables de objetos para ejecutar un comando de secuencia de comandos con "Windows Scripting ". Usted puede utilizar este método para comprobar las direcciones de host continuamente para asegurarse de que está en marcha y funcionando . Su programa de VBA puede generar un error en caso de que un host no responde. Cosas que necesitará
Microsoft Office
Ver Más instrucciones
1

lanzamiento Microsoft Word, haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic " para iniciar el editor de VBA ventana . Haga clic en el menú " Insertar" y haga clic en " módulos" para insertar un nuevo módulo de código .
2

Copia y pega el siguiente código para crear el procedimiento que se llame a la " myPingFunction " y mostrar los resultados de ping de " google.com " a través de un cuadro de mensaje :

callPingFunction Sub Private () MsgBox myPingFunction ( " google.com ") End Sub
3

Edit " google . com " en el paso anterior y escriba el host que desea hacer ping .
4

Copie y pegue la siguiente función para hacer ping a la dirección del host que envió a la función y devolver los resultados al procedimiento de llamada :

Función myPingFunction ( hOSTADDRESS como secuencia) como StringDim FSObj Como ObjectDim shellObj Como ObjectDim tmpFileObj Como ObjectDim sLine Como StringDim sFileName Como StringSet FSObj = CreateObject ( " Scripting.FileSystemObject ") Set shellObj = CreateObject ( " Wscript . Shell " ) sFileName = FSObj.GetTempNameshellObj.Run " cmd /c ping " y hOSTADDRESS y "> " y sFileName , 0, TrueSet tmpFileObj = FSObj.OpenTextFile ( sFileName , 1 ) Do While tmpFileObj . AtEndOfStream < > TruesLine = tmpFileObj.ReadlinemyPingFunction = myPingFunction & Trim ( sLine ) LooptmpFileObj.CloseFSObj.DeleteFile ( sFileName ) End Function
5

Haga clic dentro del procedimiento " callPingFunction " y presione "F5 " para ejecutarlo. Los resultados de ping se van a mostrar a través de un cuadro de mensaje.