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

為環(huán)翠等地區(qū)用戶提供了全套網頁設計制作服務，及環(huán)翠網站建設行業(yè)解決方案。主營業(yè)務為成都網站建設、網站設計、環(huán)翠網站設計，以傳統(tǒng)方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

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

分享文章：vbs中怎么操作注冊表-創(chuàng)新互聯(lián)
本文URL：http://weahome.cn/article/cojscd.html