Скачивание после авторизации с 3 параметрами

Set objIE = CreateObject("InternetExplorer.Application")
 
objIE.Visible = true
 
objIE.Navigate "https://summer.night.city.ru/ab"
 
While objIE.Busy
 
WScript.Sleep 1500
 
Wend
 
Dim form_submit : Set form_submit=objIE.document.forms(0)
 
Dim email_field : Set email_field = objIE.document.getElementById("username")
 
Dim domain_field : Set domain_field = objIE.document.getElementById("domain")
 
Dim password_field : Set password_field = objIE.document.getElementById("password")
 
objIE.document.getElementById("username").value = "user12@summer.night.city.ru"
 
objIE.document.getElementById("domain").value = "betta"
 
objIE.document.getElementById("password").value = "kreveddka12"
 
form_submit.Submit
 
WScript.Sleep 10500
 
 
 
 
 
 
 
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
 
oXMLHTTP.Open "GET", "https://summer.night.city.ru/ab/reports.rp?acts=SaveToTextfile&reportid=1124&file_name=d_1124.txt", false, "user12@summer.night.city.ru", "kreveddka12"
 
oXMLHTTP.Send
 
Set oADOStream = CreateObject("ADODB.Stream")
 
oADOStream.Mode = 3
 
oADOStream.Type = 1
 
oADOStream.Open
 
oADOStream.Write oXMLHTTP.responseBody
 
oADOStream.SaveToFile "C:\Users\user12\Desktop\download\qwe.txt", 2
 
Const COOKIES = 33
 
Set objShell = CreateObject("Shell.Application")
 
Set objFolder = objShell.Namespace(COOKIES)
 
Set objFolderItem = objFolder.Self
 
strPath = objFolderItem.Path & "\*.txt"

Dim IE, FSO, TF
 
set IE = CreateObject("InternetExplorer.Application")
 
IE.visible = false
 
IE.navigate "https://summer.night.city.ru/ab/reports.rp?acts=SaveToTextfile&reportid=1124&file_name=d_1124.txt"
 
WScript.Sleep 10500
 
Dim form_submit : Set form_submit=IE.document.forms(0)
 
Dim email_field : Set email_field = IE.document.getElementById("username")
 
Dim domain_field : Set domain_field = IE.document.getElementById("domain")
 
Dim password_field : Set password_field = IE.document.getElementById("password")
 
IE.document.getElementById("username").value = "user12@summer.night.city.ru"
 
IE.document.getElementById("domain").value = "betta"
 
IE.document.getElementById("password").value = "kreveddka12"
 
form_submit.Submit
 
WScript.Sleep 10500
 
 
 
While IE.Busy
 
WScript.Sleep 10500
 
Wend
 
 
 
set FSO = CreateObject ("Scripting.FileSystemObject")
 
set TF = FSO.CreateTextFile ("C:\Users\user12\Desktop\download\qwe.html", 2, True)
 
TF.write IE.Document.Body.InnerHtml
 
TF.close
 
IE.Quit
 
set IE =Nothing
 
set FSO =Nothing
 
set TF =Nothing