' Kod zmienia nazw obiektu i pozostawia go w tym samym miejscu
' ------ KONFIGURACJA SKRYPTU ------
strCurrentParentDN = "<NazwaWyrniajcaAktualnegoObiektuNadrzdnego>"
strObjectOldName   = "cn=<StaraNazwa>"
strObjectNewName   = "cn=<NowaNazwa>"
' ------ KONIEC KONFIGURACJI ---------

set objCont = GetObject("LDAP://" & strCurrentParentDN)
objCont.MoveHere "LDAP://" & strObjectOldName & "," & _
                 strCurrentParentDN, strObjectNewName
