 |
|
| apozlevich |
19-09-2012 13:51 1991450 |
Скачать файл
Помогите со скриптом, сам я ничего в этих языках не понимаю, но решил использовать их для одной цели.
Нужно скачать файл по url (url должен быть первым аргументом к скрипту), если файла нет - особый exit-code.
Нагуглил вот этот код (vbscript)
читать дальше »
Код:
strFileURL = "http://www.domain.com/file.zip"
strHDLocation = "D:\file.zip"
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
|
apozlevich, ну, и…?! В чём состоит вопрос?
|
| apozlevich |
19-09-2012 15:36 1991510 |
Как сделать вот это?
Цитата:
Цитата apozlevich
url должен быть первым аргументом к скрипту »
|
Цитата:
Цитата apozlevich
если файла нет - особый exit-code »
|
|
Цитата:
Цитата apozlevich
(url должен быть первым аргументом к скрипту), если файла нет - особый exit-code. »
|
Код:
If WScript.Arguments.Count = 1 Then
strFileURL = WScript.Arguments.Item(0)
…
If objXMLHTTP.Status = 200 Then
…
Else
WScript.Quit 1
End If
End If
WScript.Quit 0
|
Время: 05:24.
© OSzone.net 2001-