小编Ami*_*eza的帖子

我使用此代码下载链接,我要保存文件中%SystemRoot%\system32,但是当替换C:\用%SystemRoot%的VBS无法运行.

function download(sFileURL, sLocation)

    'create xmlhttp object
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

    'get the remote file
    objXMLHTTP.open "GET", sFileURL, false

    'send the request
    objXMLHTTP.send()

    'wait until the data has downloaded successfully
    do until objXMLHTTP.Status = 200 :  wcript.sleep(1000) :  loop

    'if the data has downloaded sucessfully
    If objXMLHTTP.Status = 200 Then

            'create binary stream object
        Set objADOStream = CreateObject("ADODB.Stream")
        objADOStream.Open

            'adTypeBinary
        objADOStream.Type = 1
        objADOStream.Write objXMLHTTP.ResponseBody

            'Set the stream position to the start
        objADOStream.Position = …