Работа с 1C Предприятие из Visual C++

#include <objbase.h>
#include <comdef.h>

//для начала инициализируем COM
HRESULT hr = CoInitialize(NULL);
if(FAILED(hr))
{
  AfxMessageBox("Невозможно инициализировать COM!");
  return FALSE;
}

/*
Прежде всего, нам необходимо получить
ID сервера OLE Automation 1С Предприятия.
*/
CLSID   cls77;

/*
Используем универсальный ключ 1С Предприятия 

Подробнее см. КЖК – если у Вас установлена единственная 
версия 1С – то этого достаточно, если несколько разных, 
то нужно загрузить нужный. Вот краткий список возможных значений:

V1CEnterprise.Application - версия независимый ключ;
V77.Application - версия зависимый ключ;
V77S.Application - версия зависимый ключ, SQL-версия;
V77L.Application - версия зависимый ключ, локальная-версия;
V77M.Application - версия зависимый ключ, сетевая-версия.
*/

hr = CLSIDFromProgID(L"V77.Application", &cls77); 
if(FAILED(hr))
{
  AfxMessageBox("Переустановите 1С Предприятие!");
  CoUninitialize();
  return FALSE;
}

//основной интерфейс, за который мы будем "дёргать"
IDispatch *pv77;

/*
Создаём инстанцию 1С Предприятия. 

CLSCTX_LOCAL_SERVER – это значит, что 1С Предприятие 
будет запущено в виде отдельного процесса – по другому оно не умеет.
*/

hr = CoCreateInstance(cls77, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void**)&pv77);

if(FAILED(hr)  ||  !pv77)
{
  AfxMessageBox("Невозможно инициализировать интерфейс 1С Предприятия"); 
  CoUninitialize();
  return FALSE;
}

/*
пока всё было понятно и очевидно, дальше начинаются сложности… 
1С предоставляет для запуска приложения функцию Initialize. 
Вызов этой функции выглядит в VB элементарно

V7.Initialize(V7.RMTrade,"D:\1C\ТипаБаза /N"+Пользователь ,"NO_SPLASH_SHOW");

- мы практически забываем, что же происходит внутри.
Но занимающиеся С++ люди хладнокровные, трудностей не боятся. 
Во-первых: мы должны помнить, что аргументы необходимо заталкивать задом наперёд…
Во-вторых: мы должны помнить, что RMTrade - это доже IDispatch интерфейс.. и его сперва нужно 

получить.
*/

VARIANT       vRet;
DISPID dispIDRmTrade, dispIDInitialize;
DISPPARAMS args = {0, 0, 0, 0};
VARIANT vars[3];  // Параметры для вызова Initialize

//Мы получим IDispatch интерфейс от RMTrade сразу в vars[2]

BSTR rmTrade = L"RMTrade";

hr = pv77->GetIDsOfNames(IID_NULL, &rmTrade, 1, 0, &dispIDRmTrade);

if (FAILED(hr))
{
  AfxMessageBox("Невозможно получить ID от RMTrade");
  if (pv77)
    pv77->Release();
  CoUninitialize();
  return FALSE;
}

hr = pv77->Invoke(dispIDRmTrade, IID_NULL, 0, DISPATCH_PROPERTYGET, &args,
      &vars[2], NULL, NULL);

if (FAILED(hr))
{
  AfxMessageBox("Невозможно получить интерфейс от RMTrade");
  if (pv77)
    pv77->Release();
  CoUninitialize();
  return FALSE;
}

//нужно получить ID для Initialize(..);
BSTR init = L"Initialize";
hr = pv77->GetIDsOfNames(IID_NULL, &init, 1, 0, &dispIDInitialize);
if (FAILED(hr))
{
  AfxMessageBox ("Не удалось получить ID от Initialize")
  if (pv77)
    pv77->Release();
  CoUninitialize();
  return FALSE;
}

/*
а теперь – вызвать этот самый Initialize(..), 
но сперва необходимо заполнить массив аргументов функции
*/

args.cArgs = 3;
args.rgvarg = vars;
vars[0] = _variant_t("NO_SPLASH_SHOW");
vars[1] = _variant_t("/D D:\1S /N Denis /P Denis ");

/*
vars[2] – у нас уже есть, мы его получили при запросе 
интерфейса RMTrade в момент предыдущего Invoke
*/

hr = pv77->Invoke(dispIDInitialize, IID_NULL, 0, DISPATCH_PROPERTYGET, &args, 
   &vRet, NULL, NULL);

if(FAILED(hr) ||  (vRet.vt ==  VT_BOOL && vRet.bstrVal == 0x00))
{
  AfxMessageBox("Невозможно запустить 1С Предприятие");
}