- Сообщения
- 14,900
- Реакции
- 6,833
Вот тема с вопросом про батник, который я упоминал раньше в соседнем разделе.
Вопросов собственно говоря два.
1) Основной вопрос
Есть скрипт AVZ (автор скрипта Vadim Vygovsky ака Vvvyg).
Скрипт очень удобный и можно править под свои нужны, но есть минус кодировка отчёта на выходе. Решил это исправить добавив строчку STR.Add('chcp 1251 > diag.log');
То есть получаем вот такой скрипт
В cmd это будет
Но отчёт на выходе всё равно получаем в OEM 866
. Как это исправить ?
2) Второй вопрос появился уже в ходе попытки разобраться почему это происходит.
Запускаем этот батник и видим, что там дописалась ещё единичка. Откуда она взялась?
Link Removed
Вопросов собственно говоря два.
1) Основной вопрос
Есть скрипт AVZ (автор скрипта Vadim Vygovsky ака Vvvyg).
Код:
var
STR : TStringList;
CMDFile: string;
begin
ExecuteFile('ipconfig.exe', '/flushdns', 0, 15000, true);
STR := TStringList.Create;
STR.Add('ipconfig /all > diag.log');
STR.Add('ping www.yandex.ru >> diag.log');
STR.Add('tracert www.yandex.ru >> diag.log');
STR.SaveToFile(GetAVZDirectory + 'diag.cmd');
CMDFile:= GetAVZDirectory + 'diag.cmd';
ExecuteFile(CMDFile, '', 0, 200000, true);
end.
Скрипт очень удобный и можно править под свои нужны, но есть минус кодировка отчёта на выходе. Решил это исправить добавив строчку STR.Add('chcp 1251 > diag.log');
То есть получаем вот такой скрипт
Код:
var
STR : TStringList;
CMDFile: string;
begin
ExecuteFile('ipconfig.exe', '/flushdns', 0, 15000, true);
STR := TStringList.Create;
STR.Add('chcp 1251 > diag.log');
STR.Add('ipconfig /all > diag.log');
STR.Add('ping www.yandex.ru >> diag.log');
STR.Add('tracert www.yandex.ru >> diag.log');
STR.SaveToFile(GetAVZDirectory + 'diag.cmd');
CMDFile:= GetAVZDirectory + 'diag.cmd';
ExecuteFile(CMDFile, '', 0, 200000, true);
end.
CMD/BATCH:
chcp 1251
ipconfig /all > diag.log
ping www.yandex.ru >> diag.log
tracert www.yandex.ru >> diag.log
![Frown :( :(](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f641.png)
2) Второй вопрос появился уже в ходе попытки разобраться почему это происходит.
Запускаем этот батник и видим, что там дописалась ещё единичка. Откуда она взялась?
Link Removed
Последнее редактирование: