#bas
' Закачка бинарного (не текстового) файла по HTTPS и сохранение его на локальном жёстком диске:

login = "имя"
password = "пароль"
Set x = CreateObject("WinHttp.WinHttpRequest.5.1")
call x.Open("GET", "https://secure.eicar.org/download/eicarcom2.zip", 0, login, password)
x.Send()
Set s = CreateObject("ADODB.Stream")
s.Mode = 3
s.Type = 1
s.Open()
s.Write(x.responseBody)
call s.SaveToFile("C:\eicarcom2.zip", 2)