Set objWshShell = WScript.CreateObject("WScript.Shell")
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
    If Left(subkey,6) = "Client" Then
        StdOut.WriteLine subkey

        strEntry = "HKLM\" & strKeyPath & "\" & subkey

        oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey, arrSubsubKeys
        For Each subsubkey In arrSubsubKeys
            strSubsubEntry = strEntry & "\" & subsubkey
            StdOut.WriteLine strSubsubEntry & "\"
            objWshShell.RegDelete strSubsubEntry & "\"
        Next

        objWshShell.RegDelete strEntry & "\"
    End If
Next