//&cls&cscript -nologo -e:jscript "%~f0"<"a.txt"&pause&exit /b

function BintoStr(strBin,strCharset){
    var stream = new ActiveXObject('ADODB.Stream')
    stream.Type = 1
    stream.Mode = 3
    stream.Open()
    stream.Write(strBin)
    stream.Position = 0
    stream.Type = 2
    stream.Charset = strCharset
    return stream.ReadText
}

function getHtmlTxt(strURL){
    var http = new ActiveXObject('Msxml2.XMLHTTP');
    try{
        http.open('GET', strURL, false);
        http.send();
        var m = http.GetResponseHeader('Content-Type').match(/charset\s?=\s?([^\s;]+)/i);
        if (m){
            var contenttype = m[0].replace(/charset\s?=\s?/,'');
            var HtmlText = BintoStr(http.ResponseBody,contenttype);
            return HtmlText;
        }
        else{
            var m = http.ResponseText.match(/<\s?meta.+?charset\s?=\s?[^\s\"]+/i);
            if (m){
                var contenttype = m[0].replace(/.+?charset\s?=\s?/,'');
                var HtmlText = BintoStr(http.ResponseBody,contenttype);
                return HtmlText;
            }
            else return http.ResponseText;
        }
     }catch (e){}
}

var fso = new ActiveXObject('Scripting.Filesystemobject');
var url = WScript.StdIn.ReadAll().split(/\s/);
var titlestr = descriptionstr = '';
for (var i=0; i<url.length; i++)
{
    var txt = getHtmlTxt(url[i]);
    if (txt) {
        var title = /<guid isPermaLink="false">([^<]+)<\/guid>/i.exec(txt);
        if (title)
             titlestr += title[1]+'\r\n';
        else titlestr += 'not found\r\n';
    }
    else{
        titlestr += 'access forbidden\r\n';
    }
}
fso.CreateTextFile('jieguo.txt',2).Write(titlestr);
复制代码