Splashtop download and upgrade

dim objWshShell: Set objWshShell = Wscript.CreateObject("Wscript.Shell")
dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "https://d17kmd0va0f0mp.cloudfront.net/csrs/Splashtop_Streamer_Windows_deploy_v3.1.2.1.exe", False
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile objWshShell.ExpandEnvironmentStrings("%TEMP%") & "\splashtop.exe", 2 '//overwrite
end with

objWshShell.run objWshShell.ExpandEnvironmentStrings("%TEMP%") & "\splashtop.exe" & " prevercheck /s /i confirm_d=0,hidewindow=1", 1, True