用vbs操作注冊表實例代碼

2020-03-24 18:17:53

字體：大中小

來源：轉載

供稿：網友

打開或關閉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即可！

打開或關閉html' target='_blank'>任務管理器：

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即可！

希望大家能用上以上腳本！
html教程

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。

上一篇：用vbs實現禁用服務

下一篇：用vbs實現在啟動 Windows 資源管理器時打開特定文件夾