ComradG
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата:| а вот что именно туда слать в каком виде не пойму. |
как вариант можно создать текстовое представление пересылаемого объекта без помощи сторонних утилит, исключительно средствами системы. обзовем батник, скажем, bin2txt:
Код: @set @x=0 /*
@echo off
set @x=
cscript //nologo //e:jscript "%~dpnx0" %1
exit /b
*/
var arg = WScript.Arguments;
if (arg.length != 1) {
WScript.Quit(1);
}
BinToText(arg(0));
function BinToText(fileName) {
var ForWriting = 2,
ado = new ActiveXObject("ADODB.Stream"),
fso = new ActiveXObject("Scripting.FileSystemObject"),
itm;
with (ado) {
Type = 2;
Charset = "ibm866";
Open();
LoadFromFile(fileName);
itm = escape(ReadText());
Close();
}
ado = null;
fso.OpenTextFile("dump.txt", ForWriting, true).Write(itm.replace(/(.{80})/g,"$1\r\n"));
fso = null;
} |
На выходе в каталоге, откуда производится запуск батника, появится файл dump.txt - это будет текстовое представление файла. текстовый файл переслать проще.
вопрос как собрать файло заново на удаленной тачке? закунуть туда заранее батник-сборщик (txt2bin):
Код: @set @x=0 /*
@echo off
set @x=
cscript //nologo //e:jscript "%~dpnx0" %1 %2
exit /b
*/
var arg = WScript.Arguments;
if (arg.length != 2) {
WScript.Quit(1);
}
TextToBinary(arg(0), arg(1));
function TextToBin(textFile, binaryFile) {
var ForReading = 1,
ForWriting = 2,
ado = new ActiveXObject("ADODB.Stream"),
fso = new ActiveXObject("Scripting.FileSystemObject"),
itm;
itm = fso.OpenTextFile(textFile, ForReading).ReadAll();
fso = null;
with (ado) {
Type = 2,
Charset = "ibm866";
Open();
WriteText(unescape(itm.replace(/\r\n/g,"")));
SaveToFile(binaryFile, ForWriting);
Close();
}
ado = null;
} |
|
