Периодически некоторые активиксы ведут себя можно сказать подло. Только понравилась идея что-то воплотить, как "на, получи фашист гранату".

Степ, ну может скажешь что на эту тему? 

Перем Д;
//***************************************************************
//***************************************************************
Процедура ПослеСозданияФормы()

	_Форма = СоздатьОбъект("Форма");
	Д = _Форма.СоздатьЭлементУправленияНаФорме(Форма, СоздатьОбъект("Активикс"), "Winsock");
	Д.СоздатьЭУ("MSWinsock.Winsock.1");
	Д.Объект.RemoteHost = "192.168.0.20";
	Д.Объект.RemotePort = "80";
	Д.Объект.Connect();

КонецПроцедуры
//***************************************************************
//***************************************************************
Процедура Winsock_Connect() Экспорт
	Сообщить("Connect");
КонецПроцедуры
//***************************************************************
//***************************************************************
Процедура Winsock_Error(Numb, Description, Scode, Source, HelpFile, HelpContext, CancelDisplay)
	Сообщить("Error");
КонецПроцедуры
//***************************************************************
//***************************************************************

 

WinSock - стандартный виндовый активикс. Расположение ''C:\WINDOWS\system32\MSWINSCK.ocx''. Допускаю что в некоторых системах его нет.

Если порт жив - событие отработает, если нет, то сворачивание коврика.
Предполагаю, что 1С-ке не нравятся данные которые она получает в качестве параметров события, но может есть вариант?

P.S. Визуального отображения данный контрол не делает, я его привел в качестве примера, такое бывает периодически на активиксах. Иными словами не отсылай меня к eventproxy 


P.S.S. Может кто посоветует другой простой способ проверить открыт ли порт на удаленной машине?

А точнее с возвратом параметров типа VT_BSTR|VT_BYREF