# This Perl code sets the home drive of all users under a container
# to be on a file server where the share name is the same as the user's
# sAMAccountName.

# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Active Directory Cookbook" by Robbie Allen
# ISBN: 0-596-00466-4
# ---------------------------------------------------------------
use Win32::OLE 'in';
$Win32::OLE::Warn = 3;
my $objParent = Win32::OLE->GetObject("LDAP://<ParentDN>");
$objParent->{Filter} = ["user"];
foreach my $objUser (in $objParent) {
    print "Modifying ", $objUser->Get("sAMAccountName"),"\n";
    $objUser->{HomeDirectory} = "\\\\<FileServerName>\\" .
                                $objUser->Get("sAMAccountName");
    $objUser->SetInfo;
}