# Kod skryptu wymusza na komputerze, na ktrym go uruchomiono, zastosowanie okrelonej lokacji

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

# ------ KONFIGURACJA SKRYPTU ------
$strSite = '<NazwaLokacji>';# np. Raleigh
# ------ KONIEC KONFIGURACJI ---------
$strNetlogonReg = 'SYSTEM\\CurrentControlSet\\Services\\Netlogon\\Parameters';
use constant HKLM => 0x80000002;
$objReg = Win32::OLE->GetObject('winmgmts:root\\default:StdRegProv');
$objReg->SetStringValue(HKLM, $strNetlogonReg, 'SiteName', $strSite);
print "Dla wpisu SiteName ustawiono warto $strSite\n";
