script este lo uso para borrar llaves de registro

‘Script para borrar las impresoras mapeadas del perfil del usuario

Const ForAppending = 8
Const HKEY_CURRENT_USER = &H80000001

On Error Resume Next
strComputer = "."

Set oReg=GetObject("winmgmts:\" & _
strComputer & "rootdefault:StdRegProv")

strKeyPath = ""

oReg.EnumKey HKEY_CURRENT_USER, strKeyPath

path = "PrintersConnections"
oReg.EnumKey HKEY_CURRENT_USER, path, impresoras
For Each conexion In impresoras
Borrarimpresora = path & "" & conexion
oReg.DeleteKey HKEY_CURRENT_USER, borrarimpresora

Next