# This Perl code enables or disables the GC for the specified DC

# ---------------------------------------------------------------
# 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
# ---------------------------------------------------------------

# ------ SCRIPT CONFIGURATION ------
my $strDC = "<DomainControllerName>";   # e.g. dc01.rallencorp.com
my $strGCEnable = 1;                    # 1 = enable, 0 = disable
# ------ END CONFIGURATION ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objRootDSE = Win32::OLE->GetObject("LDAP://$strDC/RootDSE");
$objNTDS = Win32::OLE->GetObject("LDAP://$strDC/" . $objRootDSE->Get("dSServiceName"));
$objNTDS->Put("options", $strGCEnable);
$objNTDS->SetInfo;