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