стырил шрифты с архива

 

Попался на глаза один пропавший сайт. Тянуть шрифты слишком долго, поэтому помогли скрипты

VBS

Set fso = CreateObject("Scripting.FileSystemObject")

Set WshShell = WScript.CreateObject("WScript.Shell")

set f = fso.createTextFile("graburl.txt")

ss=""

ss = InputBox("Адрес:","Введите адрес",ss)
if Len(ss)=0 then WScript.Quit(1)

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate ss
Do Until objIE.ReadyState = 4
WScript.Sleep 500 
Loop
Dim Link
For Each Link In objie.Document.Links
ss=link.href
st=link.innerHTML
if Mid(ss,len(ss)-3,4)=".zip" then
         f.writeline ss
        end if
    next
For Each pix In objie.document.images
ss=pix.src
if Mid(ss,len(ss)-3,4)=".gif" then
f.writeline ss'pix.src
end if
Next
    objIE.Quit
wscript.echo "done!"

Этот скрипт сохраняет в текстовку ссылки с введенного URL.  Добавлены только проверки на типы файлов - .zip и .gif . graburl.txt отдается wget

wget --content-disposition  -i graburl.txt  --no-check-certificate --output-file=get.log -P Z

wget по списку сохранит файлы в папку Z, запишет отчет в get.log

Теперь осталось выверить отсутствующие файлы.