Web中，vbscript中如何使用Com返回的safearray数组

问题： Web中，vbscript中如何使用Com返回的safearray数组
描述:

STDMETHODIMP CScheResult::GetAllIndex(VARIANT varName, VARIANT varPasswd, VARIANT *pvarArray)
{
SAFEARRAY *psaIntArray = 0;
SAFEARRAYBOUND bound[1];
bound[0].cElements = 3;
bound[0].lLbound = 0;
psaIntArray = SafeArrayCreate(VT_I4, 1, bound);
for (long ii = 0; ii < 3; ii++)
{
HRESULT hr = SafeArrayPutElement(psaIntArray, &ii, &ii);
}
VariantInit(pvarArray);
V_VT(pvarArray) = VT_ARRAY|VT_I4;
V_ARRAY(pvarArray) = psaIntArray;
return S_OK;
}
请帮忙写出vbscrip代码

---

解决方案1:

dim name as string
name = "yourname"
dim pass as string
pass = "password"
dim ar as Variant
ar = GetAllIndex(name,pass)

解决方案2:

你得给出idl中的借口函数的描述呀

解决方案3:

dim arr
set arr = GetAllIndex("hello","world")