On Error Resume Next
Set WSHShell=WScript.CreateObject("WScript.Shell")
With WScript.CreateObject("WScript.Shell")
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
.RegDelete"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetFolders"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsMenu"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFavoritesMenu"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogOff"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\StartMenuLogOff"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetTaskbar"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoActiveDesktop"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoActiveDesktopChanges"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoHardwareTab"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoManageMyComputerVerb"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsHistory"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecycleFiles"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSaveSettings"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSecurityTab"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoShellSearchButton"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSMMyDocs"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartMenuSubFolders"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartMenuEjectPC"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayContextMenu"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoUserNameInStartMenu"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWinKeys"
End With
Mybox=MsgBox(enab&vbCR&"^-^限制已解除，重起或注销一下吧~^-^",1024,"北冰洋以北")

或者把里面的项值改成0


界面就弄一个标签,一个按钮就行了



谢了

[此贴子已经被作者于2006-11-3 0:22:57编辑过]