Use vbs to operate the registry instance code

Turn CMD on or off:

  Dim WSHShell, r, m, v, t, g
Dim i

On Error Resume Next

Set WSHShell=("")
v="HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\system\DisableCMD"
i="REG_DWORD"
t="Command Prompt Window Switch"

r=(v)
g=1

If (r=1) Then g=0
If g=1 Then
  v,1,i
m=MsgBox("Does the command prompt window be restricted?",3,t)
Else
  v
m=MsgBox("Does the command prompt window restriction be lifted?",3,t)
End If

Copy the above content to Notepad and save the file as *.VBS!

Turn on or close the registry:

Dim WSHShell,r,M,v,t,g,i

On Error Resume Next

Set  WSHShell=("")
 v="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
 i="REG_DWORD"
t="registry switch"
 r=(v)
 g=1

If r=1 Then g=0
If g=1 Then
  v,1,i
M=MsgBox("Does the registry editor be restricted?",4,t)
Else
  v
M=MsgBox("Is the registry editor restriction lifted?",4,t)
End If

It is also possible to copy the above content to Notepad and save the file as *.VBS!

Turn on or close the task manager:

Dim WSHShell, r, m, v, t, g
Dim i

On Error Resume Next

Set WSHShell=("")
v="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
i="REG_DWORD"
t="Task Manager Switch"

r=(v)
g=1

If (r=1) Then g=0
If g=1 Then
  v,1,i
m=MsgBox("Does the task manager be restricted?",3,t)
Else
  v
m=MsgBox("Does the task manager limit be lifted?",3,t)
End If

It is also possible to copy the above content to Notepad and save the file as *.VBS!

Hope everyone can use the above script!