Tipulatoid
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору sanb Похоже, makecab не позволяет паковать папки. Так что сей вариант помещает в cab - файл полученные отчеты и содержимое папки Data, а не саму папку: Код: @echo off systeminfo>input.del call :decode ren output.del sysinfo.txt tasklist /v>input.del call :decode ren output.del process.txt dir /s /d>input.del call :decode ren output.del aimp_components.txt del /q decode.js 2>nul echo sysinfo.txt>list.del echo process.txt>>list.del echo aimp_components.txt>>list.del for /f "delims=*" %%a in ('dir /b Data\') do echo "Data\%%a">>list.del makecab /f list.del>nul move disk1\1.cab rmdir disk1 ren 1.cab report.cab del /q setup.inf setup.rpt list.del process.txt aimp_components.txt sysinfo.txt 2>nul goto :eof :decode if not exist decode.js ( ( echo var FSO_ForReading = 1; echo var FSO_ForWriting = 2; echo function GetFileContent^( filename ^) echo ^{ echo var fso = WScript.CreateObject^( "Scripting.FileSystemObject" ^); echo var f = fso.OpenTextFile^(filename, FSO_ForReading^); echo var c = f.ReadAll^(^); echo f.Close^(^); echo return^(c^); echo ^} echo. echo var i = GetFileContent^("input.del"^); echo var o = Recode^(i, "cp866", "windows-1251"^); echo SetFileContent^("output.del", o^); echo. echo function SetFileContent^( filename, conents ^) echo ^{ echo var fso = WScript.CreateObject^("Scripting.FileSystemObject"^); echo var f = fso.OpenTextFile^(filename, FSO_ForWriting, true^); echo f.Write^(conents^); echo f.Close^(^); echo return ^(true^); echo ^} echo. echo function Recode^( sourceText, srcEncoding, destEncoding ^) echo ^{ echo var adReadAll = -1; echo var adTypeText = 2; echo. echo var result = ""; echo var strm = WScript.CreateObject^("ADODB.Stream"^); echo. echo strm.Open^(^); echo strm.Type = adTypeText; echo strm.Charset = destEncoding; echo strm.WriteText^(sourceText^); echo strm.Flush^(^); echo strm.Position = 0; echo strm.Charset = srcEncoding; echo result = strm.ReadText^(adReadAll^); echo strm.Close^(^); echo return ^(result^); echo ^} )>>decode.js ) start /b /wait decode.js del /q input.del 2>nul |
| Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 21:00 09-08-2008 | Исправлено: Tipulatoid, 21:05 09-08-2008 |
|