Cuantas veces hemos necesitado editar el registro... yo cada vez que tenia que hacer algún cambio lo hacía de formas distintas, usando WMI, ficheros .REG, etc....
Os dejo una forma simple, con cuatro líneas de código está terminado.
Espero que os sea útil.
Option Explicit
On Error Resume Next
Dim oShell, sRutaRegistro
sRutaRegistro = "HKLM\SOFTWARE\Microsoft\Windows NT\currentVersion\Winlogon\"
Set oShell = CreateObject("WScript.Shell")
oShell.RegWrite sRutaRegistro & "Shell", "explorer.exe", "REG_SZ"
Set oShell = Nothing
