' Kod zmienia nazw lokalnego konta uytkownika.
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "<NazwaSerwera>"   ' np. srv01
strOldName = "<StaraNazwa>"      ' np. Guest
strNewName = "<NowaNazwa>"       ' np. RallencorpGuest
' ------ KONIEC KONFIGURACJI ---------
set objComp = GetObject("WinNT://" & strComputer)
set objUser = GetObject("WinNT://" & strComputer & "/" & strOldName & ",user")
set objNewUser = objComp.MoveHere(objUser.ADsPath, strNewName)
WScript.Echo "Operacja zmiany nazwy konta zakoczya si powodzeniem."
