none
excel revisa conexiones de PC's RRS feed

  • Pregunta

  • Tengo en Excel dos campos. A1-30 tiene una IP de un PC. en el B1-30 me gustaria que me apareciera de color Rojo si no responde o un color Verde si funciona.
    Es possible???

    miércoles, 28 de noviembre de 2007 11:36

Respuestas

  •  

    Dos camios de resolver las cosas =0)

     

    Uno:

     

    Dim strTarget, strPingResults
    strTarget = "127.0.0.1"

    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set WshExec = WshShell.Exec("ping -n 3 -w 2000 " & strTarget) 'send 3 echo requests, waiting 2secs each
    strPingResults = LCase(WshExec.StdOut.ReadAll)
    If InStr(strPingResults, "reply from") Then
      WScript.Echo strTarget & " responded to ping." 
    Else
      WScript.Echo strTarget & " did not respond to ping."
    End If

     

    Dos:

     


    Set WshShell = CreateObject("WScript.Shell")
    PINGFlag = Not CBool(WshShell.run("ping -n 1 127.0.0.1" ,0,True))
          If PINGFlag = True Then
             wscript.echo "Successful ping"
          Else
             wscript.echo "Unsuccessful ping"
          End If

     

    Saludos

     

    • Marcado como respuesta Ismael Borche martes, 5 de abril de 2011 20:58
    martes, 4 de diciembre de 2007 18:28

Todas las respuestas

  • editado el post! tengo varios rangos en la columa A. del 1 al 30... y en el B tendria que salir si responde o no.
    miércoles, 28 de noviembre de 2007 16:15
  •  

    Dos camios de resolver las cosas =0)

     

    Uno:

     

    Dim strTarget, strPingResults
    strTarget = "127.0.0.1"

    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set WshExec = WshShell.Exec("ping -n 3 -w 2000 " & strTarget) 'send 3 echo requests, waiting 2secs each
    strPingResults = LCase(WshExec.StdOut.ReadAll)
    If InStr(strPingResults, "reply from") Then
      WScript.Echo strTarget & " responded to ping." 
    Else
      WScript.Echo strTarget & " did not respond to ping."
    End If

     

    Dos:

     


    Set WshShell = CreateObject("WScript.Shell")
    PINGFlag = Not CBool(WshShell.run("ping -n 1 127.0.0.1" ,0,True))
          If PINGFlag = True Then
             wscript.echo "Successful ping"
          Else
             wscript.echo "Unsuccessful ping"
          End If

     

    Saludos

     

    • Marcado como respuesta Ismael Borche martes, 5 de abril de 2011 20:58
    martes, 4 de diciembre de 2007 18:28
  • puedo aplicar el codigo de hacer ping a un boton creado en excel?
    la idea es que al hacer click al boton me lea una celda y me devuelva esto:

    ActiveSheet.Range("F13").Value = "On Line"
    ActiveSheet.Range("F13").Interior.Color = RGB(0, 255, 0)
    miércoles, 5 de diciembre de 2007 10:58
  • hola en base a lo quie pregunto don GUIF al principio, como puedo hacer algo asi ??? no se como se hace en excel, me podrian ayudar pls !!
    viernes, 11 de abril de 2008 20:03
  • Estimados,

    La respuesta de Francisco es excelente.

    Francisco, que opción le puedo agregar a la siguiente línea para que no aparezca la ventana del command, ya que al ejecutar el código aparece la ventana.

    Set WshExec = WshShell.Exec("ping -n 3 -w 2000 " & strTarget) 'send 3 echo requests, waiting 2secs each


    En espera de tu ayuda.

    Saludos
    Carlos Vásquez Villa

    jueves, 16 de abril de 2009 22:47
  • Estimados,

    La respuesta de Francisco es excelente.

    Francisco, que opción le puedo agregar a la siguiente línea para que no aparezca la ventana del command, ya que al ejecutar el código aparece la ventana.

    Set WshExec = WshShell.Exec("ping -n 3 -w 2000 " & strTarget) 'send 3 echo requests, waiting 2secs each


    En espera de tu ayuda.

    Saludos
    Carlos Vásquez Villa

    jueves, 16 de abril de 2009 23:05