如何用vbscript调用我的这个COM?

Question

用VC,ATL写的组件
STDMETHOD(GetData)(/*[out]*/BSTR* str1,/*[out]*/BSTR* str2,/*[out,retval]*/short* ret);str1,str2 是输出参数，用来输出查询值的。在vb下的调用是
Dim obj  As load
Dim ret  As Integer
Dim str1 As String
Dim str2 As StringSet obj = New load
ret = obj.GetData(str1, str2)
vb下可以成功调用我在vbscript中是这么用的
Dim obj,ret,str1,str2 
Set obj = CreateObject("xxxcom.load.1")
Set ret = obj.GetData(str1, str2)可是怎么也运行不正确，经过测试CreateObject这行可以正常运行，obj.GetData就不行了，请问我该怎么解决？

Answer 1

vbscript是通过Dispatch接口（自动化接口）调用的。

Answer 2

Set obj = Server.CreateObject("xxxcom.load.1")
这样应该可以吧

Answer 3

是的，要用Dispatch.另外，注意VBS里变量是VARIANT，连数组里的元素都要是VARIANT，这个要注意。

Answer 4

Set ret = obj.GetData(str1, str2)
'假如返回值不是对象,请去掉Set

Answer 5

你的idl里明明写着：,/*[out,retval]*/short* ret，说明返回值是short的，就不能用setret=obj.GetData(str1,str2)