Set WshShell = WScript.CreateObject("WScript.Shell&quot
With WScript.CreateObject("WScript.Shell&quot

On Error Resume Next

.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersi on\Policies\System\DisableRegistryTools"

End With

Mybox = MsgBox(jobfunc & enab & vbCR & "Finished!", 4096, t)