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