Dim o
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", "https://2ip.io", False
o.SetRequestHeader "User-Agent", "curl/8.8.0"
o.send
echo Trim(o.responseText)