'-- http://www.c3scripts.com/tutorials/msdos/ Dim s With CreateObject("MSXML2.XMLHTTP") .open "GET", "http://checkip.dyndns.org/", False .send s = .ResponseText End With Dim x x = InStr(s, ":") If x > 0 Then s = Mid(s, x + 2) x = InStr(s, "<") If x > 0 Then s = Left(s, x - 1) WScript.Echo(s) End If End If