Saturday, December 20, 2008

Restore Access to Control Panel

---open Notepad > type & save the below lines with a filename xxx.vbs & run it----

'fixnocontrolpanel.vbs - Restores Control Panel after lockout with TweakUI or other utility
'© Doug Knox - 10/28/2001
'This code may be freely distributed/modified

'Downloaded from www.dougknox.com


Option Explicit
On Error Resume Next
'Declare variables
Dim WSHShell, MyBox, p1, t
Dim jobfunc
'Set the Windows Script Host Shell and assign values to variables
Set WSHShell = WScript.CreateObject("WScript.Shell")
p1 = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoControlPanel"
'Describe the funtion of the script for a dialog box
jobfunc = "Control Panel has now been restored." & vbCR
jobfunc = jobfunc & "You may need to log off/log on for the " & vbCR
jobfunc = jobfunc & "change to take effect."
'This section writes the correct values to the Registry
WSHShell.RegDelete p1
t = "Confirmation"
MyBox = MsgBox (jobfunc, 4096, t)