前天碰到有人问SAFEARRAY的问题，我正好对VBSCRIPT里面如何得到COM组件返回的数组感兴趣，就试验了一下。

IDE用的是VC7.1

开始都差不多，建立工程，建立COM对象，建立方法：

接口定义：

[id(2),helpstring("methodGetArray")]HRESULTGetArray1([out,retval]VARIANT*v);

方法实现：
STDMETHODIMPCATL3::GetArray1(VARIANT*pvaVariant)
{
std::vector<float>vct;
vct.push_back(11.4);
vct.push_back(12.4);
vct.push_back(14.4);
CComSafeArray<VARIANT>saMatrix;
for(inti=0;i<vct.size();++i)
{
saMatrix.Add(CComVariant(vct[i]));
}
VariantInit(pvaVariant);
CComVariantvar(saMatrix);
var.Detach(pvaVariant);
returnS_OK;
}

注意的一点就是：VBS或其它脚本环境中要得到返回数组参数，数组中的类型是VARIANT类型。

VBS测试脚本
Dimv4

Cnxn4.Add1,2

v4=Cnxn4.GetArray1()

Dimx

Forx=Lbound(v4)ToUbound(v4)
MsgBoxv4(x)
Next