[Sarus]

Я качаю при помощи утилиты Wget вот так:

Код:

@Echo off
Echo.
Echo Download AVPTool, pease wait...
Echo.
Set $Host=ftp://devbuilds.kaspersky-labs.com
Set $Fl=index.txt
Set $SRC=devbuilds/AVPTool
Set $DST=D:\Downloads\Prog's\AVPTool
If Exist "%$DST%\%$Fl%" Del "%$DST%\%$Fl%"
If Exist "%$DST%\*.exe" Del "%$DST%\*.exe"
Wget -c -t 0 %$Host%/%$SRC%/%$Fl% -P "%$DST%"
For /F "Tokens=5 Delims=/" %%i In ('FindStr /IC:"RU" "%$DST%\%$Fl%"') Do (
Wget -c -t 0 %$Host%/%$SRC%/%%i -P "%$DST%")

ЗЫ исправил, теперь скачивает самый последний AVPTool

[amel27]

вариант через CURL:

Код:

Set URL=http://devbuilds.kaspersky-labs.com/devbuilds/AVPTool
For /F "Tokens=4 Delims==/" %%i In ('curl -s -L "%URL%"^|Find "url="') Do (
curl -f -# -O ^"%URL%/%%i)

[Sarus]

вариант при помощи ftp.exe:

Код:

@Echo off
Title Download AVPTool, pease wait...
Set $Host=devbuilds.kaspersky-labs.com
Set $User=anonymous
Set $Pass=
Set $FL=index.txt
Set $SRC=devbuilds/AVPTool
Set $DST=D:\Temp\FTP\GetFtp
Set $FFtp=%~dpn0.cfg
If Exist "%DST%"\*.exe Del "%DST%"\*.exe
Echo.%$User%>"%$FFtp%"
Echo.%$Pass%>>"%$FFtp%"
Echo cd %$SRC%>>"%$FFtp%"
Echo get %$FL%>>"%$FFtp%"
Echo prompt
Echo bye>>"%$FFtp%"
cd "%DST%"
FTP -s:"%$FFtp%" %$Host%
Echo.%$User%>"%$FFtp%"
Echo.%$Pass%>>"%$FFtp%"
Echo cd %$SRC%>>"%$FFtp%"
Echo binary>>"%$FFtp%"
For /F %%i In ('FindStr /BIC:"s" "%$DST%\%$Fl%"') Do  Echo get %%i>>"%$FFtp%"
Echo prompt
Echo bye>>"%$FFtp%"
cd "%DST%"
FTP -s:"%$FFtp%" %$Host%
If Exist "%$DST%"\%$FL% Del "%$DST%"\%$FL%
If Exist "%$DST%"\*.cfg Del "%$DST%"\*.cfg

ЗЫ основан на этом батнике

[tarakan1983]

Почему сначала все было нормально, а теперь не качает. Вот что в cmd

Код:

prompt
D:\updater10
Связь с str.geo.kaspersky.com.
220 FTP server ready. 
Пользователь (str.geo.kaspersky.com:(none)): 
331 Guest login ok, send your e-mail address as password.  

230 User logged in. 
ftp> cd devbuilds/AVPTool 
250 CWD command successful. 
ftp> get index.txt 200 PORT command successful. 
150 Opening ASCII mode data connection. 
226 Transfer complete. 
ftp: 39 байт получено за 0,00 (сек) со скоростью 39000,00 (КБ/сек). 
ftp> bye 221 Goodbye. 
prompt 
D:\updater10 Связь с str.geo.kaspersky.com. 
220 FTP server ready. 
Пользователь (str.geo.kaspersky.com:(none)): 
331 Guest login ok, send your e-mail address as password.  

230 User logged in. 
ftp> cd devbuilds/AVPTool 
250 CWD command successful. 
ftp> binary 
200 Type set to I. 
ftp> bye 
221 Goodbye.

[Sarus]

tarakan1983, исправил
поменял с

Код:

For /F "Tokens=5 Delims=/" %%i In ('FindStr /IC:"RU" "%$DST%\%$FL%"')

на

Код:

For /F %%i In ('FindStr /BIC:"s" "%$DST%\%$Fl%"')

Просто содержание файла index.txt поменялось.