Set obj1C = CreateObject("V83.COMConnector")
obj1C.Connect("Srvr=""server_name"";Ref=""base_name"";Usr=""user_name"";Pwd=""password""")
Set obj1C = CreateObject("V82.COMConnector")
obj1C.Connect("Srvr=""server_name"";Ref=""base_name"";Usr=""user_name"";Pwd=""password""")
Set objQuery = obj1C.NewObject("Query")
objQuery.Text = "ВЫБРАТЬ * ИЗ Справочник.Номенклатура"
objQuery.Run()
Set objObject = obj1C.NewObject("Справочник.Номенклатура")
objObject.НайтиПоНаименованию("Товар1")
objObject.Наименование = "Новое наименование"
objObject.Записать()