Результат = Ложь;
    ОбъектMSSC    =    Новый COMОбъект("MSScriptControl.ScriptControl");
    ОбъектMSSC.Language="javascript";
    ОбъектMSSC.AddCode("
    |var IsAlive = function() {
    |    var oLoc = new ActiveXObject('WbemScripting.SWbemLocator');
    |    var oSrv = oLoc.ConnectServer(null,'/root/cimv2');
    |    var ePng = new Enumerator(oSrv.ExecQuery('SELECT * FROM Win32_PingStatus WHERE Address = """ + АдресХоста + """'));
    |    ePng.moveFirst();
    |    return (ePng.item().StatusCode==0) ? 1 : 0 ;
    |};
    |");
    
    Результат = ?(ОбъектMSSC.Run("IsAlive") = 1, Истина, Ложь);
    Сообщить (Результат);

Если ставлю днс в настройках сетевого подключения - все работает.
Если нет,то адреса не резолвятся.И пишет нет связи.Хотя сайт открывается.

(1) Я бы сначала получил адрес через запрос к DNS-серверу, а потом бы уже Ip-адрес передавал бы в вызов.