脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - VBS - 用vbs操作注册表实例代码

用vbs操作注册表实例代码

2020-07-19 11:20VBS代码网 VBS

自己最近没事研究注册表,下面我想将自己找到的一些实用的VBS脚本送给大家

打开或关闭CMD:

  1.  Dim WSHShell, r, m, v, t, g 
  2. Dim i 
  3.  
  4. On Error Resume Next 
  5.  
  6. Set WSHShell=WScript.CreateObject("WScript.Shell"
  7. v="HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\system\DisableCMD" 
  8. i="REG_DWORD" 
  9. t="命令提示窗口开关" 
  10.  
  11. r=WSHShell.RegRead(v) 
  12. g=1 
  13.  
  14. If (r=1) Then g=0 
  15. If g=1 Then 
  16.  WSHShell.RegWrite v,1,i 
  17.  m=MsgBox("是否限制命令提示窗口?",3,t) 
  18. Else 
  19.  WSHShell.RegDelete v 
  20.  m=MsgBox("是否解除命令提示窗口限制?",3,t) 
  21. End If 
  22.  
  23.   将以上内容复制到记事本中,将文件另存为*.VBS即可! 
  24.  
  25.   打开或关闭注册表: 
  26.  
  27. Dim WSHShell,r,M,v,t,g,i 
  28.  
  29. On Error Resume Next 
  30.  
  31. Set  WSHShell=WScript.CreateObject("WScript.Shell"
  32.  v="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools" 
  33.  i="REG_DWORD" 
  34.  t="注册表开关" 
  35.  r=WSHShell.RegRead(v) 
  36.  g=1 
  37.  
  38. If r=1 Then g=0 
  39. If g=1 Then 
  40.  WSHShell.RegWrite v,1,i 
  41.  M=MsgBox("是否限制注册表编辑器?",4,t) 
  42. Else 
  43.  WSHShell.RegDelete v 
  44.  M=MsgBox("是否解除注册表编辑器限制?",4,t) 
  45. End If 
  46.  
  47.   也是将以上内容复制到记事本中,将文件另存为*.VBS即可! 
  48.  
  49.   打开或关闭任务管理器: 
  50.  
  51. Dim WSHShell, r, m, v, t, g 
  52. Dim i 
  53.  
  54. On Error Resume Next 
  55.  
  56. Set WSHShell=WScript.CreateObject("WScript.Shell"
  57. v="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr" 
  58. i="REG_DWORD" 
  59. t="任务管理器开关" 
  60.  
  61. r=WSHShell.RegRead(v) 
  62. g=1 
  63.  
  64. If (r=1) Then g=0 
  65. If g=1 Then 
  66.  WSHShell.RegWrite v,1,i 
  67.  m=MsgBox("是否限制任务管理器?",3,t) 
  68. Else 
  69.  WSHShell.RegDelete v 
  70.  m=MsgBox("是否解除任务管理器限制?",3,t) 
  71. End If 

也是将以上内容复制到记事本中,将文件另存为*.VBS即可!

希望大家能用上以上脚本!

延伸 · 阅读

精彩推荐