# Kod zmienia nazw domenowego konta uytkownika

use Win32::OLE;
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU ------
$strObjectOldName = '<StaraNazwa>'; # np. administrator
$strObjectNewName = '<NowaNazwa>'; # np. RallencorpAdmin
$strCurrentParentDN = '<AktualnaNadrzdnaNazwaDomenowa>'; # np. cn=users,dc=rallencorp,dc=com
# ------ KONIEC KONFIGURACJI ---------
$objCont = Win32::OLE->GetObject('LDAP://' . $strCurrentParentDN);
$objCont->MoveHere('LDAP://cn=' . $strObjectOldName . ',' . $strCurrentParentDN, 'cn=' . $strObjectNewName);
print 'Zmiana nazwy konta' . $strAccount . ' zakoczya si powodzeniem.', "\n";
