' Kod okrela maksymalny rozmiar rejestru systemu Windows 2000 Server
' ------ KONFIGURACJA SKRYPTU ------
intValue     = <RozmiarWBajtach>   ' np. 104857600 (rozmiar rejestru w bajtach)
strComputer  = "<NazwaSerwera>"  ' np. server01 (w przypadku lokalnego serwera naley uy kropki)
' ------ KONIEC KONFIGURACJI ---------
const HKLM   = &H80000002
strKeyPath   = "System\CurrentControlSet\Control"
strValueName = "RegistrySizeLimit"
set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
intRC = objReg.SetDwordValue(HKLM, strKeyPath, strValueName, intValue)
if intRC <> 0 then
   WScript.Echo "Podczas ustawiania wartoci wystpi bd: " & intRC
else
   WScript.Echo "Z powodzeniem ustawiono rozmiar " & strValueName
end if
