dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "https://www.python.org/ftp/python/3.10.6/python-3.10.6-amd64.exe", False
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile "python-3.10.6-amd64.exe", 2 '//overwrite
end with

msgBox("Python downloaded")

Set oShell = CreateObject ("WScript.Shell") 
oShell.run "cmd.exe /c 3.10.6/python-3.10.6-amd64.exe /quiet InstallAllUsers=1 PrependPath=1 Include_test=0"

msgBox("Python installed")