Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Скачать файл

Ответить
Настройки темы
VBS/WSH/JS - [решено] Скачать файл

Аватара для apozlevich

Ветеран


Автор проектов


Сообщения: 1025
Благодарности: 180


Конфигурация

Профиль | Отправить PM | Цитировать

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

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

-------
echo 127.0.0.1 google.ru >> %systemroot%\system32\drivers\etc\hosts && ipconfig /flushdns && echo Я ничего не трогал, оно само!

Отправлено: 13:51, 19-09-2012

 

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать

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

Отправлено: 15:31, 19-09-2012 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для apozlevich

Ветеран


Автор проектов


Сообщения: 1025
Благодарности: 180

Профиль | Отправить PM | Цитировать

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

-------
echo 127.0.0.1 google.ru >> %systemroot%\system32\drivers\etc\hosts && ipconfig /flushdns && echo Я ничего не трогал, оно само!

Отправлено: 15:36, 19-09-2012 | #3


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать

Цитата 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
Это сообщение посчитали полезным следующие участники:

Отправлено: 16:06, 19-09-2012 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Скачать файл

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
[решено] Как скачать из интернета файл А_н_д_р_ей Хочу все знать 4 06-10-2010 00:16
[решено] Как скачать или запустить файл? zai Хочу все знать 8 13-04-2010 00:09
[решено] PHP|Скачать файл morgan1991 Вебмастеру 4 11-01-2010 21:44
Помогите скачать файл roootxp Хочу все знать 4 26-12-2009 22:55
Из подсети не могу скачать файл. SemKA Microsoft Windows NT/2000/2003 0 01-02-2007 18:24


« Предыдущая тема | Следующая тема »


 
Переход