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")