I've already tried this one.. No luck.. I have the usage for VBScript:

Dim is_in
is_in=0
Do While is_in<>1
    status=RDR.IsCardIn(is_in)
    CheckStatus status,"IsCardIn"
Loop
[download]

COM Object Function:

       [id(0x0000000b), helpstring("method IsCardIn")]
        HRESULT IsCardIn(
                        [out] VARIANT* is_in, 
                        [out, retval] VARIANT* status);
[download]