Как средствами 1C проверить ping разных хостов
и выводить результат на форму.

ты не поверишь... ping и в 1С ping

Команда ping прекрасно перенаправляется в файл. А дальше дело только по кнопкам стучать, даже думать не надо...

У программы есть код возврата, параметрами можешь выставить сколько пингов слать

вот пример нашел

Процедура Кнопка1Нажатие(Элемент)
перем ответ;
ответ =0;

ответ = ping("80.252.128.110");
Сообщить( ?(ответ >0 ,"Есть соединение","Нет соединения" ));
КонецПроцедуры

Function Ping(IPАдрес)
  objShell = Новый COMОбъект("WScript.Shell") ;
   objScriptExec = objShell.Exec("ping.exe -n 1 " + IPАдрес) ;
   strPingResults = НРег(objScriptExec.StdOut.ReadAll());
    Возврат   Найти(strPingResults, "ttl=");
EndFunction

думаю как бы пинги на форму вывести...

+

(6) тебе же сказали в (2)

(7) если бы примерно показать...

(4) заюзай %errorlevel%

(9)+

Перем wmi,wss;

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Адр="80.252.128.110";
   // Вариант 1
   // msdn.microsoft.com/en-us/library/aa394595(VS.85).aspx
   Если wmi = Неопределено Тогда
       wmi=ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2");
   КонецЕсли;
   Успех=Ложь;
   oColPings=wmi.ExecQuery("Select StatusCode From Win32_PingStatus where Address = '"+Адр+"'");
   Для Каждого objStatus Из oColPings Цикл
       Успех=Не objStatus.StatusCode;
   КонецЦикла;
   Сообщить(Успех);
   // Вариант 2
   Если wss = Неопределено Тогда
       wss=Новый COMОбъект("WScript.Shell");
   КонецЕсли;
   Сообщить(Не wss.Run("ping -n 1 "+Адр,0,Истина));
КонецПроцедуры