# This Perl code displays the application partitions contained in the 
# default forest

# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Active Directory Cookbook" by Robbie Allen
# ISBN: 0-596-00466-4
# ---------------------------------------------------------------

use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objRootDSE = Win32::OLE->GetObject("LDAP://RootDSE");
my $strBase    =  "<LDAP://cn=Partitions," .
                   $objRootDSE->Get("ConfigurationNamingContext") . ">;";
my $strFilter  = "(&(objectcategory=crossRef)(systemFlags=5));";
my $strAttrs   = "cn,ncName;";
my $strScope   = "onelevel";

my $objConn = Win32::OLE->CreateObject("ADODB.Connection");
$objConn->{Provider} = "ADsDSOObject";
$objConn->Open;
my $objRS = $objConn->Execute($strBase . $strFilter . $strAttrs . $strScope);
$objRS->MoveFirst;
while (not $objRS->EOF) {
   print $objRS->Fields("nCName")->Value,"\n";
   $objRS->MoveNext;
}