Dim txtURL As String, ReturnStr As String, strLogin As String, strPassw As String
Dim Stream As Object
Dim oHTTP5 As WinHttp.WinHttpRequest
Dim Wscript As Object
Set Wscript = CreateObject("WScript.Network")
Set oHTTP5 = New WinHttpRequest
On Error GoTo er_
txtURL = "https://212.26.144.104:1453/": strLogin = "tester3": strPassw = "test2013"
With oHTTP5
 .Open "GET", txtURL, False ', strLogin, strPassw
 .Option(WinHttpRequestOption_UserAgentString) = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:17.0) Gecko/17.0 Firefox/17.0"
.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = &H3300
.send
 While .status <> 200
   Wscript.Sleep 800
   DoEvents
 Wend
End With
Set Stream = CreateObject("ADODB.Stream")
    With Stream
        '.Type = adTypeText
        .Type = adTypeBinary
        .Open
        .Write oHTTP5.responseBody
        .SaveToFile "f:\test-2.html", adSaveCreateOverWrite   '.SaveToFile stFile, adSaveCreateOverWrite
        .Close
    End With

Dim txtURL As String, ReturnStr As String, strLogin As String, strPassw As String
Dim Stream As Object
Dim oHTTP5 As Object
Dim Wscript As Object
Set oHTTP5 = CreateObject("MSXML2.ServerXMLHTTP.4.0")
On Error GoTo er_
txtURL = "https://212.26.144.104:1453/": strLogin = "tester3": strPassw = "test2013"

With oHTTP5
.Open "GET", txtURL, False , strLogin, strPassw
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:17.0) Gecko/17.0 Firefox/17.0"
.SetProxy 2, "212.26.144.104:1453"
.setRequestHeader "Proxy-Connection", "Keep-Alive"
'.SetCredentials strLogin, strPassw
.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
's.setRequestHeader "Authorization", "Basic " & Base64Encode("tester3:test2013")
.send
 While .bus
   Wscript.Sleep 800
   DoEvents
 Wend
End With
Set Stream = CreateObject("ADODB.Stream")
    With Stream
        '.Type = adTypeText
        .Type = adTypeBinary
        .Open
        .Write oHTTP5.responseBody
        .SaveToFile "f:\test-2.html", adSaveCreateOverWrite   '.SaveToFile stFile, adSaveCreateOverWrite
        .Close
    End With