Help for this page

Select Code to Download

Select or download this

use Win32::OLE;
use Data::Dumper;
...
    print "Path=[$obj->{Path}] rc=[$rc]\n";
    print Data::Dumper->Dump([$sec], [qw(*sec)]);
}

Select or download this

Path=[d:\Programming] rc=[0]
$sec = undef;