Delete subkeys træ i registry

Desværre ikke direkte -- den funktion har jeg også ofte savnet. Men man kan gøre det ved at oprette en reg-fil, som man så eksekverer og sletter:

Dim Wshshell, fso, d, win
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.OpenTextFile("delreg.reg", 2, True)
Win = fso.GetSpecialFolder(0)
  d.WriteLine "REGEDIT4"
  d.WriteLine
  d.WriteLine "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Desktop]"
  d.Close
Return = WshShell.Run(win & "\Regedit.exe /s delreg.reg", 1, true)
fso.DeleteFile("delreg.reg")

Tak , det lyder som en god ide, det vil jeg prøve.