Leer el contenido del código fuente de las páginas web en lotes
@echo off
>tmp.vbs echo Dim Mx, cAS
>>tmp.vbs echo Set Mx = CreateObject("MsXml2.XmlHttp")
>>tmp.vbs echo Mx.abort:Establecer Mx = Nada:cAS.Close
tmp.vbs
for /f "tokens=2 delims=[]" %%i en (tmp. txt) hacer >1.txt echo %%i
del tmp.*
iniciar "" 1.txt