You can also use this script to write it to a file. Then you can use bginfo to display it on the desktop.
'<script language="vbscript">
' Set the URL where we can get the public IP
const URL = "http://ifconfig.me/all.xml"
set xmldoc = CreateObject("Microsoft.XMLDOM")
xmldoc.async=false
xmldoc.load(URL)
' Loop to get the public IP from the XML
for each x in xmldoc.documentElement.childNodes
if x.NodeName = "ip_addr" then
myip = x.text
end if
next
' echo for testing
'wscript.echo myip
'Output IP to file so bginfo can read it
Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile="P:\Users\jack\Documents\scripts\ext-ip.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write myip
objFile.Close
