OnErrorResumeNext

SetWSHShell=WScript.CreateObject("WScript.Shell")

WithWScript.CreateObject("WScript.Shell")

.RegDelete"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools"

.RegDelete"HKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD"

.RegDelete"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr"

EndWith

Mybox=MsgBox(enab&vbCR&"程序运行限制已解除!",1024,"Result")