DailyFile.vbs
Option Explicit
Dim today
Dim yesterday
Dim strYesterday
nToday=Date()
nYesterday=DateAdd("d",-1,nToday)
sYesterday=CStr(FormatDateTime(nYesterday,2))
Dim sBackupFile=Replace(sYesterday, "/", "_")
Dim sDestFolder="C:\"
Dim sURL="https://domain/share/" & sBackupFile
Dim sUser=""
Dim sPass=""
Set oHttp = CreateObject("Microsoft.XMLHTTP")
oHttp.Open("GET", sURL, False, sUser, sPass)
oHttp.Send ""
set saveFile = createobject("Adodb.Stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
saveFile.type = adTypeBinary
saveFile.open
saveFile.write xml.responseBody
saveFile.savetofile sDestFolder & sBackupFile, adSaveCreateOverWrite
saveFile.close
set saveFile = nothing
Set oHttp = Nothing