Select Code to Download

# $adsPath is the path to a user object
my $object = Win32::OLE->GetObject($adsPath) or die "...";
...

my @mandatoryAttributes = $schemaObj->{MandatoryProperties};
my @optionalAttributes  = $schemaObj->{OptionalProperties};