Как я могу загрузить и выполнить несколько файлов через http|https с помощью .vbs?

---

На самом деле мне нужен скрипт vbs работающий со всеми платформами windows с новейшим методом VBsripting для этих функций:
Функция 1: Скачать через HTTP|HTTPS, то сохраните путь 'c:\driver.exe' с правами админа, потом запустить с driver.exe прав''

Функция 2: дождитесь завершения первого процесса, переходите к следующей функции

Функция 3: скачать через HTTP|HTTPS, то сохраните путь 'c:\vcredist.exe с правами администратора, затем запустите с правами 'vcredist.exe'

Функция 4: дождитесь завершения третьего процесса , а затем перейдите к следующей функции

Функция 5: скачать через HTTP|HTTPS, то сохраните путь 'c:\visualstudio.exe с правами администратора, затем запустите с правами 'visualstudio.exe'

Pls хорошая помощь будет оценена по достоинству

Что я уже пробовал:

Метод, который я пробовал до сих пор, не работает.
Редактировать CHill60 - ОП-код от комментария

    On Error Resume Next
    Set File = CreateObject("Microsoft.XMLHTTP")
    File.Open "GET", "https://aka.ms/vs/16/release/vc_redist.x86.exe", False
    'This is IE 8 headers
    File.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 1.1.4322; .NET CLR 3.5.30729; .NET CLR 3.0.30618; .NET4.0C; .NET4.0E; BCD2000; BCD2000)"
    File.send
    If Err.Number <> 0 Then
        Line = ""
        Line = Line & vbCrLf & ""
        Line = Line & vbCrLf & "Error getting file"
        Line = Line & vbCrLf & "=================="
        Line = Line & vbCrLf & ""
        Line = Line & vbCrLf & "Error " & Err.Number & "(0x" & Hex(Err.Number) & ") " & Err.Description
        Line = Line & vbCrLf & "Source " & Err.Source
        Line = Line & vbCrLf & ""
        Line = Line & vbCrLf & "HTTP Error " & File.Status & " " & File.statusText
        Line = Line & vbCrLf & File.getAllResponseHeaders
        wscript.echo Line
        Err.Clear
        wscript.Quit
    End If

    On Error GoTo 0

    Set BS = CreateObject("ADODB.Stream")
    BS.Type = 1
    BS.Open
    BS.Write File.responseBody
    BS.SaveToFile "%AppData%\vc_redist.x86.exe", 2

    'Execute File
    CreateObject("Shell.Application").ShellExecute "%AppData%\vc_redist.x86.exe"

Next
wscript.Sleep 1000

On Error Resume Next
Set File = CreateObject("Microsoft.XMLHTTP")
File.Open "GET", "https://aka.ms/vs/16/release/VC_redist.arm64.exe", False
'This is IE 8 headers
File.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 1.1.4322; .NET CLR 3.5.30729; .NET CLR 3.0.30618; .NET4.0C; .NET4.0E; BCD2000; BCD2000)"
File.send
If Err.Number <> 0 Then
    Line = ""
    Line = Line & vbCrLf & ""
    Line = Line & vbCrLf & "Error getting file"
    Line = Line & vbCrLf & "=================="
    Line = Line & vbCrLf & ""
    Line = Line & vbCrLf & "Error " & Err.Number & "(0x" & Hex(Err.Number) & ") " & Err.Description
    Line = Line & vbCrLf & "Source " & Err.Source
    Line = Line & vbCrLf & ""
    Line = Line & vbCrLf & "HTTP Error " & File.Status & " " & File.statusText
    Line = Line & vbCrLf & File.getAllResponseHeaders
    wscript.echo Line
    Err.Clear
    wscript.Quit
End If

On Error GoTo 0

Set BS = CreateObject("ADODB.Stream")
BS.Type = 1
BS.Open
BS.Write File.responseBody
BS.SaveToFile "%AppData%\VC_redist.arm64.exe", 2

'Execute File
CreateObject("Shell.Application").ShellExecute "%AppData%\VC_redist.arm64.exe"

---