# Kod zmienia nazw lokalnego konta uytkownika.

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>'; # np. srv01
$strOldName = '<StaraNazwa>'; # np. Guest
$strNewName = '<NowaNazwa>'; # np. RallencorpGuest
# ------ KONIEC KONFIGURACJI ---------
$objComp = Win32::OLE->GetObject('WinNT://' . $strComputer);
$objUser = Win32::OLE->GetObject('WinNT://' . $strComputer . '/' . $strOldName . ',user');
$objNewUser = $objComp->MoveHere($objUser->ADsPath, $strNewName);
print "Operacja zmiany nazwy konta zakoczya si powodzeniem.\n";
