# Kod zmienia nazw obiektu i pozostawia go w tym samym miejscu

# ------ KONFIGURACJA SKRYPTU ------
my $strCurrentParentDN = "<NazwaWyrniajcaAktualnegoObiektuNadrzdnego>";
my $strObjectOldName   = "cn=<StaraNazwa>";
my $strObjectNewName   = "cn=<NowaNazwa>";
# ------ KONIEC KONFIGURACJI ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objCont = Win32::OLE->GetObject("LDAP://" . $strCurrentParentDN);
$objCont->MoveHere("LDAP://$strObjectOldName,$strCurrentParentDN", $strObjectNewName);
