[Iska]

Пробуйте:

читать дальше »

Код:

Option Explicit

Dim strURLFile

If WScript.Arguments.Count = 1 Then
	strURLFile = WScript.Arguments.Item(0)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FileExists(strURLFile) Then
			With .OpenTextFile(strURLFile)
				Do Until .AtEndOfStream
					GetContentFromURLAndSaveToFile Trim(.ReadLine())
				Loop
				
				.Close
			End With
		Else
			WScript.Echo "File [" & strURLFile & "] not found"
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage: wscript.exe " & WScript.ScriptName & " <URL's file>"
	WScript.Quit 1
End If

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub GetContentFromURLAndSaveToFile(strURL)
	Const adTypeBinary          = 1
	Const adModeReadWrite       = 3
	Const adSaveCreateOverWrite = 2
	
	Dim arrContent
	Dim strFileName
	Dim strChar
	
	With WScript.CreateObject("Microsoft.XMLHTTP")
		.open "GET", strURL, False
		.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
		.send
		
		arrContent = .responseBody
	End With
	
	strFileName = strURL
	
	For Each strChar In Array("<", ">", ":", """", "/", "\", "|", "?", "*")
		strFileName = Replace(strFileName, strChar, "_")
	Next
	
	With WScript.CreateObject("ADODB.Stream")
		.Type = adTypeBinary
		.Mode = adModeReadWrite
		.Open
		
		.Write arrContent
		.SaveToFile strFileName, adSaveCreateOverWrite
		
		.Close
	End With
End Sub
'=============================================================================

В самом простом варианте — достаточно просто перетащить файл с URL'ами, например, такой:

Код:

http://www.script-coding.com/
http://www.oszone.net/
http://www.ya.ru/
https://www.google.ru/webhp

на приведённый скрипт в Проводнике.

P.S. На мой взгляд, использование wget или cURL представляется более целесообразным.