' Kod definiuje wpis rejestru zawierajcy acuch
' ------ KONFIGURACJA SKRYPTU ------
const HKLM = &H80000002
strKeyPath = "<KluczRejestru>"             ' np. Software\Rallencorp
strStringValueName = "<NazwaWpisu>"  ' np. Version
strStringValue = "<WartoWpisu>"      ' np. 1.2
strComputer = "<NazwaSerwera>"        ' np. server01 (w przypadku lokalnego serwera naley uy kropki)
' ------ KONIEC KONFIGURACJI ---------
set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
intRC = objReg.SetStringValue(HKLM, strKeyPath, strStringValueName, _
                              strStringValue)
if intRC <> 0 then
   WScript.Echo "Podczas tworzenia wpisu wystpi bd: " & intRC
else
   WScript.Echo "Z powodzeniem utworzono wpis: " & strStringValueName
end if
