Rename domain admin (Perl)

This code can be found in Chapter 2 of Windows Server 2003 Security Cookbook

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 code renames the domain administrator account.
# ------ SCRIPT CONFIGURATION ------

use Win32::OLE;

$strParentDN = '<ParentDN>';
# e.g. cn=Users,dc=rallencorp,dc=com
$strUserOldName = '<OldUserName>';
# e.g. administrator
$strUserNewName = '<NewUserName>';
# e.g. mike
# ------ END CONFIGURATION ---------

$objCont = Win32::OLE->GetObject('LDAP://' . $strParentDN);
$objCont->MoveHere('LDAP://cn=' . $strUserOldName . ',' . $strParentDN, 'cn=' . $strUserNewName);
$objUser = Win32::OLE->GetObject('LDAP://cn=' . $strUserNewName . ',' . $strParentDN);
$objUser->Put('sAMAccountName', $strUserNewName);
$objUser->SetInfo();
print "Rename successful\n";

This code has been viewed 765 times.

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