Код JavaScript:
var xhr = new ActiveXObject('MSXML2.XMLHTTP.6.0'),
url = 'https://www.vpnbook.com/freevpn';
xhr.open('GET',url,false);
xhr.send();
var text = documentFromHTML(xhr.responseText).body.innerText,
servers = text.match(/[0-9a-zA-Z]+.vpnbook.com/gim),
userName = /Username:\s+([a-zA-Z]+)/gim.exec(text)[1],
password = /Password:\s+(.+)/gim.exec(text)[1];
new ActiveXObject('Scripting.FileSystemObject').OpenTextFile('vpnbook.txt',2,true).writeLine(password)
new ActiveXObject('WScript.Shell').Run('mshta javascript:document.write("<html><head><style>*{font-family:Tahoma;}</style><script>window.resizeTo(400,400)</script><title>vpnbook info</title><hta:application scroll=no></head><body>' + [
'Servers: ' + servers.join('; '),
'Username: ' + userName,
'Password: ' + password
].join('<br><br>') + '</body></html>")')
// Функция создания документа из HTML кода
function documentFromHTML(html,baseUrl){
// Создание парсера HTML кода
var document = new ActiveXObject("htmlfile");
// Отключение выполнения скриптов в документе
document.designMode = "on";
// Добавка кода в документ
document.open("text/html");
document.write(html);
document.close();
var base = document.createElement("base");
base.href = baseUrl;
document.all.tags("head")(0).appendChild(base);
// Предотвращаем загрузку внешних ресурсов (объектов / картинок и т.п)
document.execCommand("stop");
return document
}
P.S Запись на диск C:\ не стал делать. Так как в Win 7 и выше, по умолчанию, запись в корень системного диска запрещена и скрипт вызовет ошибку. Поэтому запись осуществил в ту же директорию, где и сам скрипт.
Передумал переделывать мир. Пашет и так, ну и ладно. Сделаю лучше свой !