打开或关闭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即可!
希望大家能用上以上脚本!
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,注册表
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
暂无“用vbs操作注册表实例代码”评论...
更新动态
2024年05月13日
2024年05月13日
- 八重神子角色攻略,八重神子养成材料介绍
- 黄莺莺.2011-时空寄情精选3CD【环球】【WAV+CUE】
- 刘亦菲.2006-ALLMYWORDS(日版)【WAV+CUE】
- 薛凯琪.2006-ElectricAngel(特别加歌版)【华纳】【WAV+CUE】
- 死尸死时四十四 死屍死時四十四
- 黄雀在后!
- 冤家变亲家 Mother of the Bride
- 刘梅《射雕宋韵雅乐原声带·壹》[320K/MP3][149.77MB]
- 刘梅《射雕宋韵雅乐原声带·壹》[FLAC/分轨][309.73MB]
- 群星《情迷雪域》[WAV分轨][1.1G]
- 破碎之地体力怎么用 行动力耐力合理使用攻略
- 原神风行迷踪谋策之局活动介绍 策略追猎挑战
- 决胜巅峰阿格斯技能怎么用 技能效果介绍
- 暗区突围正版官网入口分享 暗区突围官网下载链接
- 暗区突围PC端怎么下载 暗区突围PC端下载教程