急！ vbscript调用组件时参数设置问题！ 在线等！！
这是我写是组件的某个函数：
CFristPP::SearchForUsers(BSTR Target, IUserCollection** pVal){}
我现在向这样写了一个 vbscript测试他：
For Each oUser In oFreePP.SearchForUsers
WScript.ECho oUser.Id & " " & oUser.FullName
Next
报了：错误的参数个数或无效的参数属性值 我怎么来设置他的参数值啊！请帮助！
[解决办法]
vbscript不支持第二个参数的类型
你可以改为VARIANT*, 在里面存IDispatch*
[解决办法]
用IDispatch*类型
[解决办法]
函数名 括号 参数1，参数2 反括号
或者 返回值 等于 函数名 参数
[解决办法]
不知道我写的你能不能看明白，刚刚我写了两句vbs，结果csdn说不能发表可能造成伤害的言论。真奇怪.
[解决办法]
你给出的资料不是很详细，没办法给你合理的解决方法的。
先说一下你SearchForUsers是什么类型？
[解决办法]
CFristPP::SearchForUsers(BSTR Target, IUserCollection** pVal){}
我现在向这样写了一个 vbscript测试他：
For Each oUser In oFreePP.SearchForUsers
WScript.ECho oUser.Id & " " & oUser.FullName
Next
=========
要用for each，IUserCollection必须实现Enum接口，另外oFreePP.SearchForUsers应该改为oFreePP.SearchForUsers（strTarget）你有一个输入参数的
--------------------------------
If oCall.Status = cCallStatus_Failed Or _
oCall.Status = cCallStatus_Refused Or _
oCall.Status = cCallStatus_Cancelled Or _
End If
这个写的有问题
If语句是这么写的
If (条件) Then
......
End If
你Or _
End If这么写显然有问题
