打開或關閉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即可！
希望大家能用上以上腳本！
