Cross Doamin 파일 강제 다운로드

const adTypeBinary = 1
Dim objXMLHTTP, objADOStream, objFSO
Dim strFilePath, strFile, fullFilePath
Dim SaveFileFromUrl
 
strFilePath = [Cross Doamin 경로]
strFile = [다운로드할 파일명]
fullFilePath = strFilePath & strFile
 
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")
 
    objXMLHTTP.open "GET", fullFilePath, false
    objXMLHTTP.send()
 
    If objXMLHTTP.Status = 200 Then 
 
        Response.AddHeader "Content-Disposition", "attachment; filename=" & strFile
        Set objADOStream = CreateObject("ADODB.Stream")
        objADOStream.Open
        objADOStream.Type = adTypeBinary
 
        objADOStream.Write objXMLHTTP.ResponseBody
        objADOStream.Position = 0
 
        'objADOStream.LoadFromFile(fullFilePath)
        response.binarywrite objADOStream.Read
 
    End if
 
Set objXMLHTTP = Nothing