Código:
Case "Desactivar_ctrl"
Set x = CreateObject("WScript.Shell")
x.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
Case "Activar_ctrl"
Set x = CreateObject("WScript.Shell")
x.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"