dim xHttp: Set xHttp = CreateObject("MSXML2.ServerXMLHTTP")
Set wshShell = WScript.CreateObject("WScript.shell")

Do
'==========================================================
xHttp.Open "POST", "http://www.exampledomain.com/login?username=tony_e&password=QkdQX1J1bGV6MTIzIUAj", False

xHttp.Send

wshShell.run("ipconfig /flushdns")

WScript.Sleep 15*1000
'==========================================================
Loop