# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Active Directory Cookbook" by Robbie Allen
# Publisher: O'Reilly and Associates
# ISBN: 0-596-00466-4
# Book web site: http://rallenhome.com/books/adcookbook/code.html
# ---------------------------------------------------------------
use Win32::OLE 'in';
$Win32::OLE::Warn = 3;
# Using "" for the second parameter means that the there will be no 
# indention for the first level of $objects displayed.
DisplayObjects("LDAP://<OrgUnitDN>", "");

# DisplayObjects takes the ADsPath of the $object to display child
# $objects for and the second is the number of spaces (indention) 
# to use when printing the first parameter
sub DisplayObjects {  
my ($strADsPath, $strSpace) = @_;
   my $objObject = Win32::OLE->GetObject($strADsPath);
   print "$strSpace $strADsPath\n";
   foreach my $objChildObject (in $objObject) {
      DisplayObjects($objChildObject->ADsPath, $strSpace . " ");
   } 
}