takemegently
18-03-2013, 14:53
Доброго дня.
При выполнении скрипта, для скачивания файла по ссылке:
SAVEFILE "http://****/1.crl", "AC", "certutil -split c:\1.crl", objExec32, "1.txt"
Sub SAVEFILE(URL1, Base_Name, Command, OBJ1, TXT)
strFileURL = URL1
URL = Split(StrReverse(strFileURL), "/")
basename = Base_Name & StrReverse(URL(0))
strHDLocation = "C:\" & basename
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
Set objShell = CreateObject("WScript.Shell")
strCommand1 = Command
Set OBJ1 = objShell.Exec(strCommand1)
While objExec1.Status = 0
WScript.Sleep 300
Wend
strOutput = Replace(OBJ1.StdOut.ReadAll, VbCrLf & "CertUtil: -split command completed successfully.", "")
With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile(TXT, True)
.Write strOutput
.Close
End With
End Sub
Возникает проблема, заключающаяся в том, что если по текущей ссылке уже находится обновленный файл с тем же именем, то невозможно его стянуть. Появляется лишь старый файл, как будто он выдергивается из кэша.
Будьте добры, помогите победить.
При выполнении скрипта, для скачивания файла по ссылке:
SAVEFILE "http://****/1.crl", "AC", "certutil -split c:\1.crl", objExec32, "1.txt"
Sub SAVEFILE(URL1, Base_Name, Command, OBJ1, TXT)
strFileURL = URL1
URL = Split(StrReverse(strFileURL), "/")
basename = Base_Name & StrReverse(URL(0))
strHDLocation = "C:\" & basename
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
Set objShell = CreateObject("WScript.Shell")
strCommand1 = Command
Set OBJ1 = objShell.Exec(strCommand1)
While objExec1.Status = 0
WScript.Sleep 300
Wend
strOutput = Replace(OBJ1.StdOut.ReadAll, VbCrLf & "CertUtil: -split command completed successfully.", "")
With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile(TXT, True)
.Write strOutput
.Close
End With
End Sub
Возникает проблема, заключающаяся в том, что если по текущей ссылке уже находится обновленный файл с тем же именем, то невозможно его стянуть. Появляется лишь старый файл, как будто он выдергивается из кэша.
Будьте добры, помогите победить.