есть ли возможность (я думаю есть) узнать подключен ли комп к локальной сети зная имя компа через код в обработке? натолкните, пожалуйста, на примерный код

а например открыть файл с такого компа, если не открывается то не в сети

а если доступ закрыт?, тут нужны права админа

КомандаСистемы("ping ip_comp");

кажется так...

(3)Ну...ему наверно надо и ответ получить :)

(4) да как я узнаю результат?

КомандаСистемы("ping ip_comp >c:\log.txt");

Затем читай файл

ыыы тока что решал такую же задачу только для 77

вощем использовал rom-mail.dll там есть ping.

Как получить 1С результат пинга?

Щас проверил в 81 ром майл не работатет

shell=Новый COMОбъект("WScript.Shell");
Сообщить(shell.run("ping -n 1 localhost"));

При любом исходе выдает 0

нашел такой способ, без всяких логов

Процедура КнопкаВыполнитьНажатие(Кнопка)
ответ =0;
ответ = ping("ip_comp");
Сообщить( ?(ответ >0 ,"Есть соединение","Нет соединения" ));
КонецПроцедуры

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

но меня не устраивает что появляется окно консоли, как ее запустить в скрытном режиме? выручайте!

http://www.script-coding.info/Ping.html

http://ifolder.ru/16085065

(11) вот так правильнее будет
Процедура КнопкаВыполнитьНажатие(Кнопка)
ответ =0;
ответ = ping("ip_comp");
Сообщить( ?(ответ >0 ,"Есть соединение","Нет соединения" ));
КонецПроцедуры

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

спасиб BOZKURT, но сначала бы хотел решить проблемку без ВК

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

хде спасибо?