Процедура Test1()
Попытка
     m = CreateObject("m.Command");
Исключение
    Сообщить(ОписаниеОшибки() + "m.Command non create "); 
    Возврат;
КонецПопытки;
 m.Server = "192.168.1.1";
 m.PORT =  2222 ;
 m.Type="TCPIP";
 // m.Login;
 // m.Xecute("w $zv"); 
 // Сообщить(m.Xecute("w $zv")); 
КонецПроцедуры

 // m.Login;
 // m.Xecute("w $zv"); 

Процедура Test1()
	LoadAddIn("C:Events\GTMapi.dll"); 
	Попытка
     m = СоздатьОбъект("GTMapi");  
Исключение
    Сообщить(ОписаниеОшибки() + "GTMapi non create "); 
    Возврат;
КонецПопытки;
// m.Connect "127.0.0.1",  6330 ;
 //m.Xecute("w $zv"); 
	//Сообщить(m.Xecute("w $zv")); 
КонецПроцедуры

Public m As GTMCmd

Private Sub Form_Load()
Set m = New GTMCmd
m.Connect "192.168.1.100",  6330 
End Sub

Private Sub Command1_Click()
MsgBox m.XecuteGTM("w $ZV")
End Sub

Private Sub Command4_Click()
m.Disconnect
End Sub

Процедура Test1()
	LoadAddIn("C:Events\VISM.ocx");
	Попытка
	 f = CreateObject("VISM.VisMCtrl.1");
Исключение
    Сообщить(ОписаниеОшибки() + "GTMapi non create "); 
    Возврат;
КонецПопытки; 
f.Server="CN_IPTCP:localhost[1972]:_system:@SYS";
f.NameSpace="SAMPLES";
f.Execute("=$zv");
Сообщить(f.Execute("=$zv")); 
КонецПроцедуры

{Справочник.Test.Форма.модуль( 17 )}: Неизвестная ошибка

Процедура Test1() 
	Попытка
	f = CreateObject("VISM.VisMCtrl.1");  
	 //f = CreateObject("GTMapi");
Исключение
    Предупреждение(ОписаниеОшибки() + "VISM non create "); 
    Возврат;
КонецПопытки; 

Попытка 
f.MServer="CN_IPTCP:192.168.1.101[1972]:_system:@SYS";  
f.NameSpace="SAMPLES";
f.Execute("=$zv");
f.ExecFlag= 1 ;
Предупреждение(f.Value);
Исключение
    Предупреждение(ОписаниеОшибки() ); 
КолнецПопытки; 

КолнецПроцедуры