Стянуть все подряд с сайта

 Понадобились мне эти картинки. Проще всего было стянуть состав с помощью заброшенных программ. Пишу скрипт .vbs:

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
set f = fso.createTextFile("graburl.txt")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
for i=1 to 10
ss="https://www.shareicon.net/pack/16x16-free-application-icons"
 if i<>1 then
 ss=ss+"?p="+cstr(i)
 end if
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 lcase(right(ss,3))="ico" then
         f.writeline ss'+";"'+st
        end if
    next
next
    objIE.Quit
wscript.echo "done!"

Готовый файл graburl.txt скармливается wget:

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