Или так:
Код:
var URL = 'http://targeturl';
var oIE = WScript.CreateObject("InternetExplorer.Application");
var oIE1 = WScript.CreateObject("InternetExplorer.Application");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var URLlist = fso.CreateTextFile("urllist.txt", true);
oIE.navigate( URL );
oIE.visible = 1; // Keep visible
while (oIE.Busy) {WScript.Sleep(200);} // Important: wait until Internet Explorer is ready.
for( i=0; i<oIE.document.links.length; i++ ){
oIE1.navigate( oIE.document.links[i] );
while (oIE1.Busy) {WScript.Sleep(200);}
for( j=0; j<oIE1.document.links.length; j++ ){
URLlist.WriteLine( oIE1.document.links[j] );
};
};
URLlist.Close();
WScript.Echo( 'Done');
На выходе файл
urllist.txt, который можно запихнуть в любую качалку.
Вот только работать будет долго.