# This Perl code creates an application partition off of the 
# root of the default forest.

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

# ------ SCRIPT CONFIGURATION ------
my $strAppPart = "<AppPartitionName>"; # DN of the app partition to delete
my $strServer  = "<DomainControllerName>"; # DNS name of DC to host app partition
my $strDescr   = "<Description>";  # Descriptive text about the app partition
# ------ END CONFIGURATION ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objRootDSE = Win32::OLE->GetObject("LDAP://$strServer/RootDSE");
my $objLDAP = Win32::OLE->GetObject("LDAP://$strServer/" .
                          $objRootDSE->Get("rootDomainNamingContext") );
my $objAppPart = $objLDAP->Create("domainDNS", "dc=$strAppPart");
$objAppPart->Put("instancetype", 5);
$objAppPart->Put("description", $strDescr);
$objAppPart->SetInfo;
print "Created application partition: $strAppPart\n";