Download file script

Sub DownloadURL (strURL, strFile)
   Dim objHTTP, strRet : strRet = ""
   Set objHTTP = CreateObject ("MSXML2.ServerXMLHTTP")
   objHTTP.open "GET", strUrl
   objHTTP.setRequestHeader "Referer", strUrl
   objHTTP.send
   strRet = objHTTP.responseBody'Binary Data
   Set objHTTP = Nothing
  
   Const adTypeBinary = 1
   Const adSaveCreateOverWrite = 2
   Dim objADO :   Set objADO = CreateObject ("ADODB.Stream")
   objADO.Type = adTypeBinary
   objADO.Open
   objADO.Write strRet
   objADO.SaveToFile strFile, adSaveCreateOverWrite
   objADO.Close
   Set objADO = Nothing
End Sub