получаю пинг вот так:
IPАдрес="ya.ru";
objShell = Новый COMОбъект("WScript.Shell") ;
objScriptExec = objShell.Exec("ping.exe -n 1 " + IPАдрес) ;
strPingResults = (objScriptExec.StdOut.ReadAll()); // это строка с результатом

а в результате в строке strPingResults  все досовские(системные русские) слова заменяются иероглифами.

(ЋЎ¬Ґ­ Ї ЄҐв ¬Ё б ya.ru [213.180.193.3] б 32 Ў ©в ¤ ­­ле:
ЋвўҐв ®в 213.180.193.3: зЁб«® Ў ©в=32 ўаҐ¬п=76¬б TTL=48
‘в вЁбвЁЄ  Ping ¤«п 213.180.193.3:
    Џ ЄҐв®ў: ®вЇа ў«Ґ­® = 1, Ї®«г祭® = 1, Ї®вҐап­® = 0
    (0% Ї®вҐам)
ЏаЁЎ«Ё§ЁвҐ«м­®Ґ ўаҐ¬п ЇаЁҐ¬ -ЇҐаҐ¤ зЁ ў ¬б:
    ЊЁ­Ё¬ «м­®Ґ = 76¬бҐЄ, Њ ЄбЁ¬ «м­®Ґ = 76 ¬бҐЄ, ‘।­ҐҐ = 76 ¬бҐЄ)

Как это побороть?

попробуй chcp

а какую поставить для 1с ?

хз. я бы попробовал 1251 или utf8

utf8 - 65001

objScriptExec = objShell.Exec("chcp 1251");
дает ошибку:
Произошла исключительная ситуация (WshShell.Exec): Не удается найти указанный файл.

скачать альтернативный пинг на английском?

вот так сработало

objScriptExec = objShell.Exec("C:\WINDOWS\system32\chcp.com 1251");

пиши в файл

так стоп, а где запись в файл? ) файл потом можно прочитать на любой кодировке

благодарю  f_vadim, так сработало

objScriptExec = objShell.Exec("ping.exe -n 1 " + IPАдрес+" >>rez.txt") ;

так записать в файл. если просто > то перепишет. Иначе - допишет

понял, спасибо!