vbscript从缓存中下载文件

时间:2014-11-02 14:16:04

标签: vbscript

我需要从网站下载最新文件,而不使用wget或任何外部实用程序。我在堆栈溢出本身发现了以下vbscript(不知道链接,因为我已经清除了缓存和历史记录)

' Set your settings
    strFileURL = "http://somewebsitehere.com/somefile"
    strHDLocation = "D:\somepath\"

' Fetch the file
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

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

If objXMLHTTP.Status = 200 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(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing

objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing

然而,在使用此脚本后,我发现它在前几次试验中确实可以正常工作,但后来从缓存中下载了相同的文件,而不是从网上下载新文件。我从C:\ Users \ username \ AppData \ Local \ Microsoft \ Windows \ INetCache \ IE \ 0XQSU247获取相同的文件。 我需要清除INETCache,然后重新运行脚本以获取新文件。 那么应如何修改此脚本,以便从Web服务器获取最新的更新文件,而不是从缓存中获取文件。 这个问题可能很蹩脚,但我对vbscript一无所知。

0 个答案:

没有答案