'Script to find out what the WAN IP address is 'Version 1.0 Set objxmlHTTP = CreateObject("Microsoft.XMLHTTP") Call objxmlHTTP.open("get", "http://checkip.dyndns.org", False) objxmlHTTP.Send() strHTMLText = objxmlHTTP.ResponseText Set objxmlHTTP = Nothing If strHTMLText <> "" Then varStart = InStr(1, strHTMLText, "Current IP Address:", vbTextCompare) + 19 If varStart Then varStop = InStr(varStart, strHTMLText,"", vbTextCompare) If varStart And varStop Then strIP = Mid(strHTMLText, varStart, varStop - varStart) Else strIP = "Unavailable" End If WAN_IP = Trim(strIP) WScript.Echo "Current WAN IP Address:" & vbCrLf & " " & WAN_IP WScript.Quit