Computer = "192.168.0.101";
WinMGMT = ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\");
Win32_PingStatus = WinMGMT.ExecQuery("SELECT StatusCode FROM Win32_PingStatus WHERE Address = '" + Computer + "'");
    
Успешно = Ложь;

Для Каждого PingStatus ИЗ Win32_PingStatus Цикл

    Если PingStatus.StatusCode = NULL Тогда

        Успешно = Ложь;

    Иначе

        Успешно = PingStatus.StatusCode = 0;

     КонецЕсли;

КонецЦикла;