vbs中怎么操作注冊表

這篇文章將為大家詳細講解有關vbs中怎么操作注冊表，文章內容質量較高，因此小編分享給大家做個參考，希望大家閱讀完這篇文章后對相關知識有一定的了解。

打開或關閉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中怎么操作注冊表就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。