Dim WshShell, bKey Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegDelete "HKLM\Software\Microsoft\PCHealth\ErrorReporting\DW\"