[решено] Скачать файл

[apozlevich]

Помогите со скриптом, сам я ничего в этих языках не понимаю, но решил использовать их для одной цели.

Нужно скачать файл по 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

[Iska]

apozlevich, ну, и…?! В чём состоит вопрос?

[apozlevich]

Как сделать вот это?
url должен быть первым аргументом к скрипту »
если файла нет - особый exit-code »

[Iska]

(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