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(enabvbCR"程序运行限制已解除!",1024,"Result")
