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")