Get External IP address
Monday, March 18, 2019
20:35
Dim o
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", "[link]", False
o.send
WScript.StdOut.Write o.responseText
Sub Test()
Dim o
Set o = CreateObject("MSXML2.XMLHTTP")
o.Open "GET", "[link]", False
o.send
alert(o.responseText)
End Sub