用vbs操作注册表实例代码
导读：收集整理的这篇文章主要介绍了用vbs操作注册表实例代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 打开或关闭CMD： Dim WSHShell, r, m, v, t, g...
收集整理的这篇文章主要介绍了用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即可！
希望大家能用上以上脚本！
您可能感兴趣的文章:
- vbscript Registry 注册表操作实现代码(读写删除)
- VBS通过WMI监视注册表变动的代码
- vbs 注册表操作类代码
- vbs 注册表操作代码(添加删除)
- VBS脚本使用WMI操作注册表的代码
- vbscript 注册表脚本书写
- vbs删除注册表项的代码
- Vbscript写注册表的方法
- VBS读取注册表的两种方法
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用vbs操作注册表实例代码
本文地址： https://pptw.com/jishu/609633.html