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
