Cómo usar VB o VBA para realizar una prueba de ping

Escrito por jaime avelar | Traducido por juliana star
  • Comparte
  • Twittea
  • Comparte
  • Pin
  • E-mail
Cómo usar VB o VBA para realizar una prueba de ping
(Comstock/Comstock/Getty Images)

Automatizar el proceso de hacer ping a diferentes direcciones usando Visual Basic para Aplicaciones (VBA) puede ahorrarte mucho tiempo, especialmente cuando tienes que hacer ping a muchas direcciones. Hacer ping a una dirección significa ejecutar una prueba y determinar si la dirección es accesible a través de la red. VBA es muy similar a VB y puedes usarlo en cualquier aplicación de Microsoft Office, como Excel. Para hacer ping a un host, necesitas usar un par de objetos como variables para ejecutar una secuencia de comandos usando "Windows Scripting". Puedes usar este método para verificar las direcciones de los hosts de forma continua y asegurarte de que estén encendidos y funcionando. Tu programa en VBA puede mostrar un error en caso de que un host no responda.

Nivel de dificultad:
Moderado

Otras personas están leyendo

Necesitarás

  • Microsoft Office

Lista completaMinimizar

Instrucciones

  1. 1

    Ejecuta Microsoft Word, haz clic en la pestaña "Desarrollador" y selecciona "Visual Basic" para ejecutar la ventana del editor de VBA. Haz clic en el menú "Insertar" y luego en "Módulo" para agregar un nuevo módulo de código.

  2. 2

    Copia y pega el siguiente código para crear el procedimiento que llamará a la función "miFuncionPing" y mostrará los resultados del ping para "google.com" mediante un cuadro de mensaje:

    Private Sub llamarFuncionPing() MsgBox miFuncionPing("google.com") End Sub

  3. 3

    Edita el texto "google.com" del paso anterior y escribe el host al que quieras hacer ping.

  4. 4

    Copia y pega la siguiente función para hacer ping a la dirección del host que enviaste a la función y enviar los resultados al procedimiento desde donde se invocó:

    Function miFuncionPing(hostAddress As String) As String Dim FSObj As Object Dim shellObj As Object Dim tmpFileObj As Object Dim sLine As String Dim sFilename As String Set FSObj = CreateObject("Scripting.FileSystemObject") Set shellObj = CreateObject("Wscript.Shell") sFilename = FSObj.GetTempName shellObj.Run "cmd /c ping " & hostAddress & " >" & sFilename, 0, True Set tmpFileObj = FSObj.OpenTextFile(sFilename, 1) Do While tmpFileObj.AtEndOfStream <> True sLine = tmpFileObj.Readline miFuncionPing = miFuncionPing & Trim(sLine) Loop tmpFileObj.Close FSObj.DeleteFile (sFilename) End Function

  5. 5

    Haz clic dentro del procedimiento "llamarFuncionPing" y presiona "F5" para ejecutarlo. Los resultados del ping se mostrarán a través de un cuadro de mensaje.

No dejes de ver

Filtrar por:
  • Mostrar todos
  • Artículos
  • Galerías de fotos
  • Videos
Ordenar:
  • Más relevante
  • Más popular
  • Más reciente

No se encuentran artículos disponibles

No se encuentran slideshows disponibles

No se encuentran videos disponibles