Здравствуйте, подскажите, пожалуйста, почему ошибка в строке
Items = ServicesSet.ExecQuery("SELECT StatusCode from Win32_PingStatus WHERE address = '" + IP + "' AND Timeout=10");
?
Вот код
&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)
    Сообщить(Avaible("192.168.0.39"));
    //Сообщить(Avaible("ert"));
КонецПроцедуры

// Функция Avaible проверяет "пингуется" ли указанный IP
Function Avaible(IP) Export
    Try
        ServicesSet = GetCOMObject("winmgmts:{impersonationLevel=impersonate}");
        Items = ServicesSet.ExecQuery("SELECT StatusCode from Win32_PingStatus WHERE address = '" + IP + "' AND Timeout=10");
    Except
        Return Undefined;
    EndTry;
    For Each Item In Items Do
        If Item.StatusCode = 0 Then
            Return True;
        Else
            Return False;
        EndIf;
    EndDo;
EndFunction

&НаКлиенте
Функция ПроверитьПИНГ(IPАдрес)
    
    Результат = Ложь;
    
    Если ЗначениеЗаполнено(IPАдрес) Тогда
        
        Попытка
            Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
            Скрипт.language="vbscript";
            Скрипт.addcode("
            |Function Avaible()
            |Set objWMIService = GetObject(""winmgmts:{impersonationLevel=impersonate}"")
            |Set objPing = objWMIService.ExecQuery(""select * from Win32_PingStatus where address = '"+IPАдрес+"'"")
            |For Each objStatus in objPing
            |If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
            | Avaible = false
            |Else
            | Avaible = true
            |End If
            |Next
            |End function
            |");
            Результат = Скрипт.Run("Avaible");
        Исключение
            Сообщить(ОписаниеОшибки());
        КонецПопытки;
    КонецЕсли;
    
    Возврат Результат;
        
КонецФункции

интересно, а как будет "доступен" по-английски?

(2) available

(3) спасибо, чуть не потерял веру в себя

(1) Спасибо=)