vbscript 中不支持 automation类型

COM原型
[propget, id(2), helpstring("属性 X")] HRESULT P1([out, retval] HRESULT* pVal);我想此属性直接返回真，下面的写法对吗？
STDMETHODIMP Class1::p1(HRESULT* pVal)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());* pVal=TRUE;return S_OK;
}另外，我用vbs调用的时候老是报错，说vbscript 中不支持 automation类型
Set obj = CreateObject("XXX.XXX.X")  //这一句没有错误
if (obj.p1) then  我的意思，想如果返回真就打印出来YES，否则NO
MsgBox "YES"
else
MsgBox "No"【此com组件注册成功，一些别的一些方法都能用】
但是那个返回是真是假，不知道怎么写。
我查了baidu和google，也许是因为com和vbs都不太熟悉，不知道该查什么keyword所以没有找到办法
希望高手指点下。谢谢