用vbs操作注冊表實例代碼

2020-03-24 18:17:53

字體：大中小

供稿：網(wǎng)友

打開或關(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)閉注冊表：

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="注冊表開關(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("是否限制注冊表編輯器?",4,t)
Else
WSHShell.RegDelete v
M=MsgBox("是否解除注冊表編輯器限制?",4,t)
End If

也是將以上內(nèi)容復(fù)制到記事本中，將文件另存為*.VBS即可！

打開或關(guān)閉html' target='_blank'>任務(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即可！

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

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

上一篇：用vbs實現(xiàn)禁用服務(wù)

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