Visual Basic

GetBinaryFile "http://sourceURL", "destinationFilePath"
 
Private Function NavigateToPage(objIE, url)
	attempts = 0
	timeout = 5000
	i = 0
 
	While attempts < 5
		objIE.Navigate2 url
		While (objIE.ReadyState < READYSTATE_COMPLETE) And (i < timeout)
			WScript.Echo "Waiting... " & i
			WScript.Sleep 100
			i = i + 100
		Wend
		If i >= timeout Then
			WScript.Echo "Retrying..."
			attempts = attempts + 1
			i = 0
		Else
			' Domain should not be blank if the page worked!
			If objIE.Document.Domain <> "" Then
				NavigateToPage = True
				Exit Function
			Else
				NavigateToPage = False
				Exit Function
			End If
		End If
	Wend
	NavigateToPage = False
End Function
 
Private Sub GetBinaryFile(uri, filepath)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1 
 
	Set xml = CreateObject("Microsoft.XMLHTTP")
	xml.Open "GET", uri, False
	WScript.Echo "Downloading " & uri & "..."
	xml.Send
 
	Set oStream = CreateObject("Adodb.Stream")
 
	oStream.Type = adTypeBinary
	oStream.Open
	oStream.Write xml.responseBody
 	
	WScript.Echo "Saving to file " & filepath & "..."
	oStream.SaveToFile filepath, adSaveCreateOverWrite
 
	oStream.Close
	set oStream = Nothing
	Set xml = Nothing
End Sub