Select Code to Download

Win32::OLE(0.1601) error 0x80020005: "Type mismatch"
    in METHOD/PROPERTYGET "FlashLamp" argument 1 at CS1.pm line 199

    $cs1 = Win32::OLE->GetActiveObject("CS.CSInterface1") or die "Coul
+d not get interface CS1\n";
    ...
    my ($on, $off, $count) = $_; # contains args !!! SHOULD USE ARRAY 
+HERE !!!
    $cs1->FlashLamp($on, $off, $count);

STDMETHODIMP CCSInterface1::FlashLamp(long OnDuration, long OffDuratio
+n, long FlashCount)
{
    return S_OK;
}