Помогите с выгрузкой файлов на сервер.

Вот скрипт, пишет Status 403 (ошибка авторизации, логин/пароль правильный ввожу, сто раз проверял)

Dim HTTP
Set HTTP = CreateObject("Msxml2.XMLHTTP.3.0")

HTTP.Open "POST", "http://mysait.ru/resource", False, "Login", "Password"
HTTP.setRequestHeader "Content-Type", "multipart/form-data"
HTTP.Send GetFile("D:\File.exe")

MsgBox HTTP.status & vbCrLf & HTTP.statusText

Function GetFile(FileName)
Dim Stream
Set Stream = CreateObject("ADODB.Stream")
Stream.Mode = 3
Stream.Type = 1
Stream.Open
Stream.LoadFromFile FileName
GetFile = Stream.Read
Stream.Close
End Function