# This Perl code sets the SD reference domain for the specified app partition
# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Active Directory Cookbook" by Robbie Allen
# ISBN: 0-596-00466-4
# ---------------------------------------------------------------
# ------ SCRIPT CONFIGURATION ------
# DN of reference domain
my $strRefDomainDN = "<DomainDN>";      # e.g. dc=emea,dc=rallencorp,dc=com
# Fully qualified DNS name of app partition
my $strAppPart = "<AppPartitionFQDN>";   # e.g. app.rallencorp.com
# ------ END CONFIGURATION ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objRootDSE = Win32::OLE->GetObject("LDAP://RootDSE");
my $strBase    =  "<LDAP://cn=Partitions," . $objRootDSE->Get("ConfigurationNamingContext") . ">;";
my $strFilter  = "(&(objectclass=crossRef)(objectcategory=crossRef)(dnsRoot=$strAppPart));";
my $strAttrs   = "nCName,msDS-SDReferenceDomain,distinguishedName;";
my $strScope   = "onelevel";
my $objConn = Win32::OLE->CreateObject("ADODB.Connection");
$objConn->{Provider} = "ADsDSOObject";
$objConn->Open;
my $objRS = $objConn->Execute($strBase . $strFilter . $strAttrs . $strScope);
if ($objRS->RecordCount != 1) {
   print "Did not find a match for application partition $strAppPart\n";
   exit;
}
else {
   $objRS->MoveLast;
   print "Current Reference Domain: ",
         $objRS->Fields("msDS-SDReferenceDomain")->Value,"\n";
   my $objCrossRef = Win32::OLE->GetObject("LDAP://" . $objRS->Fields("distinguishedName")->Value );
   $objCrossRef->Put("msDS-SDReferenceDomain", $strRefDomainDN);
   $objCrossRef->SetInfo;
   print "New Reference Domain: ", $objCrossRef->Get("msDS-SDReferenceDomain");
}