This is a new version that uses the XML
service of showmyip.com
Since the source is an XML feed the parsing of the data is
much simpler and more accurate.
You can find the old script here if you want to see it.
20030410 050606 EDT Thursday, April 10th, 2003 05:06 am
Please note, if you plan to run this script unattended
from the task manager,
ShowMyIP.com requests that you limit your connections to
once every thirty
|'Code begins here
' 4-10-2003, Sadowski
' Copyright Paul R. Sadowski <aa089(at)bfn.org>
const URL = "http://xml.showmyip.com/"
set xmldoc = CreateObject("Microsoft.XMLDOM")
for each x in xmldoc.documentElement.childNodes
if x.NodeName = "ip" then
myip = x.text
if x.NodeName = "host" then
myhost = x.text
if x.NodeName = "timestamp" then
mytime = x.text
myinfo = myip & vbCRLF & myhost & vbCRLF & mytime
© 2003 by Paul R. Sadowski
All Rights Reserved. Used By Permission.
Comments to: Scripting