Move user (Perl)

This code can be found in Chapter 6 of Active Directory Cookbook, 2nd edition

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the Perl code from this site.

# This Perl code moves a user from one container to another.

# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Active Directory Cookbook" by Robbie Allen
# ISBN: 0-596-00466-4
# ---------------------------------------------------------------

# ------ SCRIPT CONFIGURATION ------
my $strUserDN = "<UserDN>";     # e.g. cn=rallen,cn=users,dc=rallencorp,dc=com
my $strOUDN = "<NewParentDN>";  # e.g. ou=Sales,dc=rallencorp,dc=com
# ------ END CONFIGURATION ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objUser = Win32::OLE->GetObject("LDAP://" . $strUserDN);
my $objOU = Win32::OLE->GetObject("LDAP://" . $strOUDN);
$objOU->MoveHere($objUser->ADsPath, $objUser->Name);

This code has been viewed 1395 times.

New from the creators of TechTasks.com: StatSheet.com