# This Perl code copies a source GPO to a new GPO
# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Active Directory Cookbook" by Robbie Allen
# ISBN: 0-596-00466-4
# ---------------------------------------------------------------
# ------ SCRIPT CONFIGURATION ------
my $strSourceGPO  = "<SourceGPOName>";  # e.g. SalesGPO
my $strNewGPO     = "<NewGPOName>";     # e.g. Marketing GPO
my $strDomain     = "<DomainDNSName>";  # e.g. rallencorp.com
# ------ END CONFIGURATION ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objGPM = Win32::OLE->CreateObject("GPMgmt.GPM");
my $objGPMConstants = $objGPM->GetConstants();
  
# Initialize the Domain $object
my $objGPMDomain = $objGPM->GetDomain($strDomain, "", $objGPMConstants->UseAnyDC);
# Find the source GPO
my $objGPMSearchCriteria = $objGPM->CreateSearchCriteria;
$objGPMSearchCriteria->Add($objGPMConstants->SearchPropertyGPODisplayName,
                           $objGPMConstants->SearchOpEquals, $strSourceGPO);
my $objGPOList = $objGPMDomain->SearchGPOs($objGPMSearchCriteria);
if ($objGPOList->Count == 0) {
   print "Did not find GPO: $strGPO\n";
   print "Exiting.\n";
   exit;
}
elsif ($objGPOList->Count > 1) {
   print "Found more than one matching GPO. Count: ", $objGPOList->Count,"\n";
   print "Exiting.\n";
   exit;
}
else {
   print "Found GPO: ", $objGPOList->Item(1)->DisplayName,"\n";
}
# Copy from source GPO to target GPO
my $objGPMResult = $objGPOList->Item(1)->CopyTo(0, $objGPMDomain, $strNewGPO);
# This will throw an exception if there were any errors during the operation.
$objGPMResult->OverallStatus();
if ($objGPMResult->Status->Count > 0) {
   print "Status message(s): ", $objGPMResult->Status->Count,"\n";
   foreach my $i (1 .. $objGPMResult->Status->Count) {
      print $objGPMResult->Status->Item($i)->Message,"\n";
   }
   print "\n";
}
# Display the results
if (Win32::OLE->LastError) {
   print "Error copying GPO.";
   print "Error: ",Win32::OLE->LastError,"\n";
}
else { 
   print "Copy successful to $strNewGPO.\n";
}