Здравствуйте George_Seryakov, Вы писали:

GS>Жуть какая. А что, VARIANT типа VT_I4 | VT_BYREF не работает?

Работает если на клиенте используется VBScript — все параметры передаются по ссылке,
а в JScript числа передаются только по значению — читать могу, изменить нет.

Так как на клиенте необходим только JScript, то получается эта жуть.

В VBScript значение i меняется на 44, а в JScript остается равно 1

switch(iOut->vt){
    case VT_I2:    iOut->lVal = 44;    break;    // вызов из VBScript
    case VT_I4:    iOut->lVal = 44;    break;    // вызов из JScript

HTML

<script language="VBScript">
Function Bn_B()
    Dim i
    i = 1
    txt2.value = test2.m2(i)
    txt3.value = i
end function
</script>
<script language="JScript">
function Bn_J()
{
        var i = 1;
    txt2.value = test2.m2(i);
    txt3.value = i;
}
</script>
<input type=button value="VBScript" onclick="Bn_B()">
<input type=button value="JScript" onclick="Bn_J()">
<input type=text name=txt2 size=100>
<input type=text name=txt3 size=100>