REM Code is provided by www.dyndns.sg

REM Version: 0.1

REM Updated: 15.Oct.2013

REM Please also check out https://www.nodens.biz/ and http://www.hydracloud.co/



EmailAdd = "someone@somewhere.com"

ActCode = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"



strFileURL = "https://dyndns.sg/saveip.php?EmailAdd=" & EmailAdd & "&ActCode=" & ActCode



Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false

objXMLHTTP.send()



REM msgbox objXMLHTTP.responseText



Set objXMLHTTP = Nothing