How can I download and execute multiple files over http|https with .vbs?

Question

1.00/5 (1 vote)

See more:

Actually I need vbs script working with all windows platform with the latest VBsripting method for these functions:
Function 1: Download over http|https, then save to path 'c:\driver.exe' with admin rights, then run with rights 'driver.exe'

Function 2: Wait for first process to complete, the move to next function

Function 3: Download over http|https, then save to path 'c:\vcredist.exe' with admin rights, then run with rights 'vcredist.exe'

Function 4: Wait for the third process to complete , then move to next function

Function 5: Download over http|https, then save to path 'c:\visualstudio.exe' with admin rights, then run with rights 'visualstudio.exe'

Pls a good help will be appreciated

What I have tried:

The method I tried so far isn't working.
EDIT by CHill60 - OP Code from comment

VB

    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"

Posted 30-Jan-20 1:29am

Loan Chex, LLC

Updated 2-Feb-20 20:29pm

CHill60

v2

Add a Solution

Comments

Richard MacCutchan 30-Jan-20 7:34am

"The method I tried so far isn't working."
Well since we cannot see your screen it is impossible to tell why. And additionally it is unlikely that you will get admin rights in this way. To be honest it looks like you are trying to hack someone's system, so it is unlikely that any one here will help.

Loan Chex, LLC 30-Jan-20 7:36am

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"

Dave Kreskowiak 30-Jan-20 7:38am

You're going to have to describe which part of this isn't working.

CHill60 30-Jan-20 8:15am

There is a random "Next" without a "For" in your code so it is incomplete. Use the "Improve Question" link in your original post to add the missing code

Loan Chex, LLC 30-Jan-20 7:39am

Nothing seem to be working. Pls I am needing a working code better than this if there can be help. I need a new code

CHill60 30-Jan-20 8:16am

Debugging VBScript[^]

phil.o 30-Jan-20 8:03am

What does 'not working' mean? Are there errors (if so, please show error messages)? Or is it that it does not do what you expect (if so, explain what you expect and what you get instead)? Please help us to help you by providing relevant informations. Finally, this is not a code-ordering forum, so keeping with 'I need code pls' will not lead you very far, I'm afraid.

Loan Chex, LLC 30-Jan-20 10:27am

Looking at the script above, when I run it doesn't work. That's why I am trying to see what's wrong with it asking someone who's vast.

ZurdoDev 30-Jan-20 12:16pm

Doesn't work doesn't tell us much, as was already explained.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2020-02-02T20:29:00

Solution 1

Take a look this: Download A File In Visual Basic Script (vbs) · GitHub[^]

Posted 2-Feb-20 20:29pm

Maciej Los