Developing.ru

Почитай эту статейку [url]http://www.developing.ru/com/com_errors.html[/url], возможно она тебе поможет разобраться с передачей ошибок в COM

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

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

set DeleteFiles = CreateObject( "iplugins.DeleteFiles" )

Всем доброго времени суток.
Помогите плиз, разобраться с ситуацией.
Есть некий интерфейс IDeleteFiles реализованный посредством ATL.
В реализации этого интерфейса есть метод FinalConstruct.
[code]
HRESULT TDeleteFilesImpl::FinalConstruct()
{
try
{
throw Exception( "Описание причины ошибки" );

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

Далее создаем объект этого интерфейса в VbScript:
[code]
set DeleteFiles = CreateObject( "iplugins.DeleteFiles" )
[/code]

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