打開或關(guān)閉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="命令提示窗口開關(guān)"
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
將以上內(nèi)容復(fù)制到記事本中，將文件另存為*.VBS即可！
打開或關(guān)閉注冊(cè)表：
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="注冊(cè)表開關(guān)"
r=WSHShell.RegRead(v)
g=1
If r=1 Then g=0
If g=1 Then
WSHShell.RegWrite v,1,i
M=MsgBox("是否限制注冊(cè)表編輯器?",4,t)
Else
WSHShell.RegDelete v
M=MsgBox("是否解除注冊(cè)表編輯器限制?",4,t)
End If
也是將以上內(nèi)容復(fù)制到記事本中，將文件另存為*.VBS即可！
打開或關(guān)閉任務(wù)管理器：
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="任務(wù)管理器開關(guān)"
r=WSHShell.RegRead(v)
g=1
If (r=1) Then g=0
If g=1 Then
WSHShell.RegWrite v,1,i
m=MsgBox("是否限制任務(wù)管理器？",3,t)
Else
WSHShell.RegDelete v
m=MsgBox("是否解除任務(wù)管理器限制？",3,t)
End If
也是將以上內(nèi)容復(fù)制到記事本中，將文件另存為*.VBS即可！
希望大家能用上以上腳本！
