Технология СОМ: исключение в FinalConstruct

[HKarel]

Всем доброго времени суток.
Помогите плиз, разобраться с ситуацией.
Есть некий интерфейс IDeleteFiles реализованный посредством ATL.
В реализации этого интерфейса есть метод FinalConstruct.

Код: Выделить всё

HRESULT TDeleteFilesImpl::FinalConstruct()
{
  try
  {
    throw Exception( "Описание причины ошибки" );

  }
  catch( Exception &e )
  {
    return Error( e.Message.c_str(), IID_IDeleteFiles );
  }
  return S_OK;
}

Далее создаем объект этого интерфейса в VbScript:

Код: Выделить всё

set DeleteFiles = CreateObject( "iplugins.DeleteFiles" )

Естественно, получаем ошибку. Однако о причинах ошибки сказано: " Неизвестная ошибка".
А как мне получить мое: "Описание причины ошибки" ?

[Владимир]

Почитай эту статейку com/com_errors.html, возможно она тебе поможет разобраться с передачей ошибок в COM