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