- 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"
- End With
- Mybox=MsgBox(enab&vbCR&"程序运行限制已解除!",1024,"Result")