Help for this page
use strict; use Win32::OLE; ... my $errstr = Variant(VT_BSTR|VT_BYREF, Variant(VT_EMPTY)); $obj->GetErrorStr( Variant(VT_I4|VT_BYREF, 12345), $errstr );