Dim fso, MyFile, WSHShell, StatusContent, Http 

GetURL = "http://192.168.1.1/cgi-bin/modem_status?status/" 

Set fso = CreateObject("Scripting.FileSystemObject") 
Set MyFile = fso.CreateTextFile("A2C-Modem.txt", True) 
Set WSHShell = CreateObject("WScript.Shell") 
Set Http = CreateObject("Microsoft.XMLhttp") 

Http.Open "GET",GetURL,False 
Http.Send 
StatusContent = Http.ResponseText 

Set Http = Nothing 

MyFile.WriteLine ("Page " & StatusContent & ": ") 

MyFile.Close