Процедура КнопкаВыполнитьНажатие(Кнопка) Ответ = 0; Ответ = ping("74.125.232.87"); Сообщить(?(Ответ > 0 ,"Есть соединение", "Нет соединения" )); КонецПроцедуры Функция Ping(IPАдрес) objShell = Новый COMОбъект("WScript.Shell") ; objScriptExec = objShell.EXEC("ping.exe -n 1 " + IPАдрес) ; strPingResults = НРег(objScriptExec.StdOut.ReadAll()); Возврат Найти(strPingResults, "ttl="); КонецФункции