' Kod zmienia nazw domenowego konta uytkownika
' ------ KONFIGURACJA SKRYPTU ------
strObjectOldName   = "<StaraNazwa>"       'np. administrator
strObjectNewName   = "<NowaNazwa>"        'np. RallencorpAdmin
strCurrentParentDN = "<AktualnaNadrzdnaNazwaDomenowa>" 'np. cn=users,dc=rallencorp,dc=com
' ------ KONIEC KONFIGURACJI ---------
set objCont = GetObject("LDAP://" & strCurrentParentDN)
objCont.MoveHere "LDAP://cn=" & strObjectOldName & "," & _
                 strCurrentParentDN, "cn=" & strObjectNewName
WScript.Echo "Zmiana nazwy konta " & strAccount & " zakoczya si powodzeniem."
