Select Code to Download

Public Function returnScriptingObj1() As Object 

...
    Set returnScriptingObj1 = tot 
    'returnScriptingObj1 = tot 
End Function

my $newObj = Win32::OLE->new("TestArray.PArray");
my $resultsArray; #= Variant(VT_BYREF, Variant(VT_EMPTY));
$resultsArray = $newObj->returnScriptingObj1();
print Dumper($resultsArray);<br>

$VAR1 = bless( {
                 'Item' => undef,
                 'Count' => 3,
                 'CompareMode' => 0
               }, 'Win32::OLE' );