// Константы для ADODB.Stream
var	adTypeBinary			= 1,
	adSaveCreateOverWrite	= 2;
// Содержимое файла в hex
var data = '53616d706c652066696c6520776974682064617461';
// Создание объекта кодировщика / декодировщика
var encoder = (function(){
	var e = new ActiveXObject('MSXML2.DOMDocument.6.0').createElement("e");
	// Функция кодирования данных
	return {
		encode: function(data, dataType){
			e.dataType			= dataType;
			e.nodeTypedValue	= data;
			return e.text;
		},
		// Функция декодирования данных
		decode: function(data, dataType){
			e.dataType	= dataType;
			e.text		= data;
			return e.nodeTypedValue;
		}
	}
})();
// Декодирование данных (вторым параметром можно указать bin.hex - для данных в hex кодировке / bin.base64 - для данных в кодировке base64)
data = encoder.decode(data,'bin.hex');
//Запись данных в файл
var stream = new ActiveXObject('ADODB.Stream');
// Режим записи двоичный
stream.Type = adTypeBinary;
stream.open();
stream.Write(data)
// Сохранение файла (второй параметр - adSaveCreateOverWrite разрешает перезапись поверх)
stream.SaveToFile('sample.txt', adSaveCreateOverWrite);

var ado = new ActiveXObject("ADODB.Stream");
ado.mode = 3;
ado.type = 1;
//ado.Charset = "windows-1251";
//ado.LineSeparator = 10;
ado.open();
//ado.WriteText(str);
ado.Write(str); //не идет сюда никакая переменная, пишет ошибку!
ado.SaveToFile("test.bin", 2);

var hex = "тут_хекс_данные_файла, много текста",
    bytes = [],
    str;

for(var i=0; i< hex.length-1; i+=2)
{
    bytes.push(parseInt(hex.substr(i, 2), 16));
}
str = String.fromCharCode.apply(String, bytes);

var ado = new ActiveXObject("ADODB.Stream");
ado.mode = 3;
ado.type = 1;
ado.open();
ado.Write("строка"); //сюда подставлял и переменную со скрипта, результат один и тот же.
ado.SaveToFile(path2, 2);  

function download(qurl, qfile)
{
    var r= 0, o= new ActiveXObject('MSXML2.XMLHTTP'), ADO= {adTypeBinary: 1, adSaveCreateOverWrite: 2}

    o.onreadystatechange= function()
    {
        if (o.readyState !== 4) return; if ((r= o.Status) !== 200) return

        var a= new ActiveXObject('ADODB.Stream')

        a.Open()
        a.Type= ADO.adTypeBinary, a.Write(o.ResponseBody), a.Position= 0, a.SaveToFile(qfile, ADO.adSaveCreateOverWrite)
        a.Close()
    }
    o.open('GET', qurl, false)
    o.send()
    return r
}

var ado = new ActiveXObject("ADODB." + "Stream");

URL = "http://ib.8plus.ru/8a/sounds/monofrosch-mit-hall.wav"
Dir = "C:\NewFolder\NewFolder\NewFolder"  ' каталог сохранения

Set HTTP = CreateObject("MSXML2.XMLHTTP.6.0")
HTTP.open "GET", URL, False : HTTP.Send
If HTTP.Status <> 200 Then _
HTTP.Abort : MsgBox "Файл не доступен!", 48 : WScript.Quit

Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(Dir) Then _
   CreateObject("Shell.Application")._
   NameSpace(FSO.GetDriveName(Dir)).NewFolder(Mid(Dir, 4))

Path = FSO.BuildPath(Dir, FSO.GetFileName(URL))
With CreateObject("SAPI.SpFileStream")
  .Format.Type = 1 : .Open Path, 3, True
  .Write HTTP.ResponseBody : .Close
End With
CreateObject("WScript.Shell").Run "explorer.exe /select," & Path