# This Perl code creates an OU 

# ---------------------------------------------------------------
# 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 $strOrgUnit       = "<OUName>";      # e.g. Tools
my $strOrgUnitParent = "<ParentDN>";    # e.g. ou=Engineering,dc=rallencorp,dc=com
my $strOrgUnitDescr  = "<Description>"; # e.g. Tools Users
# ------ END CONFIGURATION ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objDomain = Win32::OLE->GetObject("LDAP://" . $strOrgUnitParent);
my $objOU = $objDomain->Create("organizationalUnit", "OU=" . $strOrgUnit);
$objOU->Put("description", $strOrgUnitDescr);
$objOU->SetInfo;
print "Successfully created ", $objOU->Name,"\n";