On Error Resume Next
Set WshShell = CreateObject("WScript.Shell")

paths = Array( _
    "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\", _
    "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\", _
    "HKCU\Software\Policies\Microsoft\Windows\System\", _
    "HKLM\SOFTWARE\Policies\Microsoft\Windows\System\" _
)

vals = Array("DisableTaskMgr", "DisableRegistryTools", "DisableCMD")

For Each p In paths
    For Each v In vals
        WshShell.RegWrite p & v, 0, "REG_DWORD"
    Next
Next

Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002

Set oWmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

wmiPaths = Array( _
    "Software\Microsoft\Windows\CurrentVersion\Policies\System", _
    "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", _
    "Software\Policies\Microsoft\Windows\System", _
    "SOFTWARE\Policies\Microsoft\Windows\System" _
)

For Each subkey In wmiPaths
    For Each v In vals
        oWmi.SetDWORDValue HKEY_CURRENT_USER, subkey, v, 0
        oWmi.SetDWORDValue HKEY_LOCAL_MACHINE, subkey, v, 0
    Next
Next

MsgBox "by.xiaoyu", 64, "提示"