打開或關閉CMD： 

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

On Error Resume Next 

Set WSHShell=WScript.CreateObject("WScript.Shell") 
v="HKEY_CURRENT_USER/Software/Policies/Microsoft/Windows/system/DisableCMD" 
i="REG_DWORD" 
t="命令提示窗口開關" 

r=WSHShell.RegRead(v) 
g=1 

If (r=1) Then g=0 
If g=1 Then 
 WSHShell.RegWrite v,1,i 
 m=MsgBox("是否限制命令提示窗口？",3,t) 
Else 
 WSHShell.RegDelete v 
 m=MsgBox("是否解除命令提示窗口限制？",3,t) 
End If 

  將以上內容復制到記事本中，將文件另存為*.VBS即可！ 

  打開或關閉注冊表： 

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

On Error Resume Next 

Set  WSHShell=WScript.CreateObject("WScript.Shell") 
 v="HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/System/DisableRegistryTools" 
 i="REG_DWORD" 
 t="注冊表開關" 
 r=WSHShell.RegRead(v) 
 g=1 

If r=1 Then g=0 
If g=1 Then 
 WSHShell.RegWrite v,1,i 
 M=MsgBox("是否限制注冊表編輯器?",4,t) 
Else 
 WSHShell.RegDelete v 
 M=MsgBox("是否解除注冊表編輯器限制?",4,t) 
End If 

  也是將以上內容復制到記事本中，將文件另存為*.VBS即可！ 

  打開或關閉任務管理器： 

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

On Error Resume Next 

Set WSHShell=WScript.CreateObject("WScript.Shell") 
v="HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/System/DisableTaskMgr" 
i="REG_DWORD" 
t="任務管理器開關" 

r=WSHShell.RegRead(v) 
g=1 

If (r=1) Then g=0 
If g=1 Then 
 WSHShell.RegWrite v,1,i 
 m=MsgBox("是否限制任務管理器？",3,t) 
Else 
 WSHShell.RegDelete v 
 m=MsgBox("是否解除任務管理器限制？",3,t) 
End If 

  也是將以上內容復制到記事本中，將文件另存為*.VBS即可！ 

  希望大家能用上以上腳本！