经典的ASP - ServerXMLHTTP NT认证

Question

所以我有下面的代码，我想用它来下载图像并保存它们。

<%
function SaveFileFromUrl(Url, FileName)
    dim objXMLHTTP, objADOStream, objFSO

    Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")

    objXMLHTTP.open "GET", Url, false
    objXMLHTTP.send()

    If objXMLHTTP.Status = 200 OR objXMLHTTP.Status = 304 Then 
        Set objADOStream = CreateObject("ADODB.Stream")
        objADOStream.Open
        objADOStream.Type = 1 'adTypeBinary

        objADOStream.Write objXMLHTTP.ResponseBody
        objADOStream.Position = 0 'Set the stream position to the start

        Set objFSO = Createobject("Scripting.FileSystemObject")
        If objFSO.Fileexists(FileName) Then objFSO.DeleteFile FileName
        Set objFSO = Nothing

        objADOStream.SaveToFile FileName
        objADOStream.Close
        Set objADOStream = Nothing

        SaveFileFromUrl = objXMLHTTP.getResponseHeader("Content-Type")
    else
        SaveFileFromUrl = ""
    End if
    response.write objXMLHTTP.Status
    Set objXMLHTTP = Nothing
end function
%>

当我在网上的图片上运行这个程序时，它工作得很好。但是，当试图在需要NT身份验证的intranet映像上使用它时，通过使用response.write objXMLHTTP.Status，我会得到一个401错误。

因此，我有些明显的问题是-如何在脚本中这样做而不取消NT身份验证？

然而，

这也可能是由于图像没有扩展。它们的形式是http://domain/thumbs/image1，而不是http://domain/thumbs/image1.png。

不管怎样，我都不能让它起作用！

谢谢

Answer 1

http://msdn.microsoft.com/en-us/library/ms763809%28v=vs.85%29.aspx

objXMLHTTP.open(bstrMethod, bstrUrl, bAsync, bstrUser, bstrPassword);