Useful question, this is how I answer it on my windows systems.

I have now uploaded this to github,

Its a TCL/TK script that invokes the windows XP shell command ping.

  1. I use an “information graphic” to decorate the box. which needs to be copied to $tklibrary/images. (See also Scripting on Windows, on this wiki.)
  2. I am not happy with the trimming of the ip address, which is displayed into the address variable using square brackets. Chris advises that “set daddress [string trim $address {[]} ]” removes the brackets from the address and is obviously much neater and is character based. It implements a “remove the unwanted character” rule, not remove the first and last characters.

2 Replies

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.