On Error Resume Next
Set lim = CreateObject("WScript.Shell")
Set fso = CreateObject("scripting.FileSystemObject")
lim.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows"_
+"\CurrentVersion\Policies\System\DisableRegistryTools"
lim.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows"_
+"\CurrentVersion\Policies\System\DisableTaskMgr"
lim.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows"_
+"\CurrentVersion\Policies\Explorer\HideClock"
lim.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows"_
+"\CurrentVersion\Policies\Explorer\NoDeskTop"
lim.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows"_
+"\CurrentVersion\Policies\Explorer\NoClose"
lim.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows"_
+"\CurrentVersion\Policies\Explorer\NoFind"
lim.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows"_
+"\CurrentVersion\Policies\Explorer\NoFolderOptions"
lim.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows"_
+"\CurrentVersion\Policies\Explorer\NoRun"
lim.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows"_
+"\CurrentVersion\Policies\Explorer\NoControlPanel"
lim.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows"_
+"\CurrentVersion\Policies\Explorer\NoDevMgrPage"
lim.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows"_
+"\CurrentVersion\Policies\Explorer\DisableRegistryTools"