IWshShell.RegDelete Method

[José Roca]

The following code creates a key and two values, reads them, and deletes them.

JScript

Code Select Expand


var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.RegWrite ("HKCU\\Software\\ACME\\FortuneTeller\\", 1, "REG_BINARY");
WshShell.RegWrite ("HKCU\\Software\\ACME\\FortuneTeller\\MindReader", "Goocher!", "REG_SZ");
var bKey =    WshShell.RegRead ("HKCU\\Software\\ACME\\FortuneTeller\\");
WScript.Echo (WshShell.RegRead ("HKCU\\Software\\ACME\\FortuneTeller\\MindReader"));
WshShell.RegDelete ("HKCU\\Software\\ACME\\FortuneTeller\\MindReader");
WshShell.RegDelete ("HKCU\\Software\\ACME\\FortuneTeller\\");
WshShell.RegDelete ("HKCU\\Software\\ACME\\");


VBScript

Code Select Expand


Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ"
bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\")
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader")
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader"
WshShell. RegDelete"HKCU\Software\ACME\FortuneTeller\"
WshShell.RegDelete "HKCU\Software\ACME\"


PowerBASIC

Code Select Expand


DIM pWsh AS IWshShell
DIM vValue AS VARIANT
DIM vType AS VARIANT
DIM vKey AS VARIANT
pWsh = NEWCOM "WScript.Shell"
vValue = 1 AS LONG
vType = "REG_BINARY"
pWsh.RegWrite UCODE$("HKCU\Software\ACME\FortuneTeller\"), vValue, vType
vValue = "Goocher!"
vType = "REG_SZ"
pWsh.RegWrite UCODE$("HKCU\Software\ACME\FortuneTeller\MindReader"), vValue, vType
vKey = pWsh.RegRead(UCODE$("HKCU\Software\ACME\FortuneTeller\"))
vKey = pWsh.RegRead(UCODE$("HKCU\Software\ACME\FortuneTeller\MindReader"))
MSGBOX VARIANT$(vKey)
pWsh.RegDelete UCODE$("HKCU\Software\ACME\FortuneTeller\MindReader")
pWsh.RegDelete UCODE$("HKCU\Software\ACME\FortuneTeller\")
pWsh.RegDelete UCODE$("HKCU\Software\ACME\")