What’s my IP address?

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

I have now uploaded this to github, https://github.com/dfl1955/windows-tools

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.