If I remember my "c" correctly, the second parameter required by GetErrorStr is a POINTER to a pre-allocated null-terminated string.

You may have better luck trying the following:

$obj->GetErrorStr( Variant(VT_I4|VT_BYREF, 12345), \$errstr ); 
#Notice REFERENCE to $errstr
[download]