Continuous Ping

@echo off
:START
Ping -n 1 localhost
Goto START

Option Explicit
 
'Settings:
'- Number of PC speaker beeps on ping successes/failures
Const BEEPS_ON_PING = 1
Const BEEPS_ON_NO_PING = 3
'- Milliseconds of pause between pings
Const PAUSE_MS = 200
'- Milliseconds pause before automatically closing the progress window
Const AUTO_CLOSE = True
Const FINAL_PAUSE = 5000
 
'Variable definitions
Dim strHost
Dim dtEnd
Dim objShell, objExplorer
Dim intSuccessfulPingCount, intUnsuccessfulPingCount
 
'Initialise
Set objExplorer = CreateObject("InternetExplorer.Application")
 
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Width = 400
objExplorer.Height = 400
objExplorer.Document.Body.Style.Cursor = "default"
intSuccessfulPingCount = 0
intUnsuccessfulPingCount = 0
 
 
'If we don't have a host then ask for one
If Wscript.Arguments.Count < 1 Then
    strHost = InputBox("Please enter the host to ping", "Enter Host", "localhost")
Else
    strHost = Wscript.Arguments(0)
End If
 
'Double check what we have
If Len(strHost)  0
    'Carry out the ping
    If Ping(strHost, False) = True Then
        'Ping successful
        intSuccessfulPingCount = intSuccessfulPingCount + 1
        Beep(BEEPS_ON_PING)
        WScript.Sleep(PAUSE_MS)
    Else
        'Ping unsuccessful
        intUnsuccessfulPingCount = intUnsuccessfulPingCount + 1
        Beep(BEEPS_ON_NO_PING)
        WScript.Sleep(PAUSE_MS)
    End If
    UpdatePings "<p><b>RUNNING...</b></p>"
Wend
 
'Finalise
objExplorer.Document.Body.Style.Cursor = "default"
If AUTO_CLOSE Then
    UpdatePings("<p><b>AUTO CLOSING...</b></p>")
    Wscript.Sleep FINAL_PAUSE
    objExplorer.Quit
Else
    UpdatePings("<p><b>PING CYCLE COMPLETED</b></p>")
End If
 
 
'Update the display of pings
Sub UpdatePings(p_strSuffix)
    Dim strDisplay
 
    strDisplay = ""
 
    strDisplay = strDisplay & "<p>"
    strDisplay = strDisplay & "Finish pinging @ "
    strDisplay = strDisplay & dtEnd
    strDisplay = strDisplay & "<br />"
    strDisplay = strDisplay & "Currently ... "
    strDisplay = strDisplay & Now()
    strDisplay = strDisplay & "</p>"
 
    strDisplay = strDisplay & "<hr>"
 
    strDisplay = strDisplay & "<p>"
    strDisplay = strDisplay & "<table border='0'>"
    strDisplay = strDisplay & "<tr>"
    strDisplay = strDisplay & "<td><font color='green'>Successful pings</font></td>"
    strDisplay = strDisplay & "<td><font color='green'>"
    strDisplay = strDisplay & intSuccessfulPingCount
    strDisplay = strDisplay & "</font></td>"
    strDisplay = strDisplay & "</tr>"
    strDisplay = strDisplay & "<tr>"
    strDisplay = strDisplay & "<td><font color='red'>Unsuccessful pings</font></td>"
    strDisplay = strDisplay & "<td><font color='red'>"
    strDisplay = strDisplay & intUnsuccessfulPingCount
    strDisplay = strDisplay & "</font></td>"
    strDisplay = strDisplay & "</tr>"
    strDisplay = strDisplay & "</table>"
    strDisplay = strDisplay & "</p>"
 
    strDisplay = strDisplay & "<hr>"
 
    strDisplay = strDisplay & "<p>"
    strDisplay = strDisplay & "Auto Close Enabled: "
    strDisplay = strDisplay & AUTO_CLOSE
    strDisplay = strDisplay & "</p>"
 
    strDisplay = strDisplay & "<hr>"
 
    strDisplay = strDisplay & p_strSuffix
 
    objExplorer.Document.Body.InnerHTML = strDisplay
End Sub
 
 
'This function pings the specified host
Function Ping(p_strHost, p_boolDisplay)
    Dim objPing, objStatus
 
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_PingStatus where address = '" & p_strHost & "'")
 
    For Each objStatus in objPing
        If IsNull(objStatus.StatusCode) or objStatus.StatusCode0 then
            Ping = False
            If p_boolDisplay Then
                WScript.Echo "Status code is " & objStatus.StatusCode
            End If
        Else
            Ping = True
            If p_boolDisplay Then
                Wscript.Echo "Bytes = " & vbTab & objStatus.BufferSize
                Wscript.Echo "Time (ms) = " & vbTab & objStatus.ResponseTime
                Wscript.Echo "TTL (s) = " & vbTab & objStatus.ResponseTimeToLive
            End If
        End if
    Next
End Function
 
 
'Beep the PC speaker a number of times equal to the p_intBeeps parameter
Function Beep(p_intBeeps)
 
    Dim objShell, intCount, strCommand
 
    'Check we have a valid number of beeps not fool proof but it will do for now
    Beep = False
    If IsNumeric(p_intBeeps) Then
        If p_intBeeps > 0 Then
            Beep = True
        End If
    End If
 
    If Beep Then
        'Build the command string to run
        strCommand = "cmd /c echo"
        For intCount = 1 to p_intBeeps
            strCommand = strCommand & " " & chr(007)
        Next
 
        'Run the command in the background
        Set objShell = Wscript.CreateObject("wscript.Shell")
        objShell.Run strCommand, 0
 
        Beep = True
    End If
End Function

Buy me a coffee

Related posts that you may also like to read

• 

  Automating Time Travelling Blog Posts

  23 Jul 2023

  Writing blog posts is something that I generally struggle to make time to do. I have always got several parallel activities on the go and writing everything down takes time and slow down progress. Things also come up and disrupt the flow, providing further challenges. I feel writing blog posts is useful as it allows me to share thoughts and solutions that others can then build on and utilise for their own needs, but I don’t have a way to set a structured regular time to do this, so it is an ad hoc activity. This frequently results in me starting writing up a post to be published on one day, but it getting delayed. Because my blog posts and assets utilise the publish date, this can lead to a bit of remedial work to line things up again prior to publishing.

  After doing this manually a few times, I created an automation to allow me to quickly shift posts and assets to a new publish date. In this post I am going to outline how I do this to give you some ideas of how you might accomplish something similar with your own similar scenarios.

  Read More
• 

  ste-mux for SwiftBar

  31 Mar 2023

  Since I began using Jekyll as the static site generator for my web sites, I have been hosting locally while I modify structural changes and write the content prior to publishing. Serving the sites locally involves me running terminal sessions that run the web server. Unless I am actively working on something where I need to check what the web server is doing, I always wanted it to be out of the way, ideally tucked under some icon on the Mac’s menu bar. A menu bar terminal app kind of felt like what I was after.

  Recently I was reading a post that made reference to “bitbar” an application that allowed you to put text and menu items into your menu bar based on a script. I’d come across this and similar apps many times before, but never had a reason to use them. Until now that is, as I realised I might just be able to create my own solution for my out of sight, but still accessible local web server management.

  Read More
• 

  Move Last Download to Current Finder Folder

  24 Dec 2021

  In my day job, I work on Windows, and XYplorer is my file manager of choice due to it’s configurability and extensibility through scripting. One of my most used extensions is one which will move the last downloaded file to the directory in the currently focused XYplorer pane. I have written about a very similar XYplorer script in the past that works in the same way, but rather than the last download, it grabs a copy of the last screenshot I took.

  Recently I realised I was missing this functionality over on my Mac, and so I decided to redress the imbalance through a little scripting.

  Read More
• 

  Extra Clipboard Functions for Mac Shell Scripts

  19 Jan 2020

  Working with shell scripting is in essence very similar to programming in a more traditional compile-to-run language. The key differences for me are the depth of access and that it is interpreted. On occasion the scripting commands available simply don’t do everything you might want in one simple to execute command, and so, just like any other areas of coding, you can go down the path of creating your own functions and shorthand. In this post I’m going to share a few functions I’m using for adding content to the Mac clipboard/pasteboard.

  Read More