手机
当前位置:查字典教程网 >脚本专栏 >vbs >用vbs操作注册表实例代码
用vbs操作注册表实例代码
摘要:打开或关闭CMD:DimWSHShell,r,m,v,t,gDimiOnErrorResumeNextSetWSHShell=WScript...

打开或关闭CMD:

DimWSHShell,r,m,v,t,g

Dimi

OnErrorResumeNext

SetWSHShell=WScript.CreateObject("WScript.Shell")

v="HKEY_CURRENT_USERSoftwarePoliciesMicrosoftWindowssystemDisableCMD"

i="REG_DWORD"

t="命令提示窗口开关"

r=WSHShell.RegRead(v)

g=1

If(r=1)Theng=0

Ifg=1Then

WSHShell.RegWritev,1,i

m=MsgBox("是否限制命令提示窗口?",3,t)

Else

WSHShell.RegDeletev

m=MsgBox("是否解除命令提示窗口限制?",3,t)

EndIf

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

打开或关闭注册表:

DimWSHShell,r,M,v,t,g,i

OnErrorResumeNext

SetWSHShell=WScript.CreateObject("WScript.Shell")

v="HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools"

i="REG_DWORD"

t="注册表开关"

r=WSHShell.RegRead(v)

g=1

Ifr=1Theng=0

Ifg=1Then

WSHShell.RegWritev,1,i

M=MsgBox("是否限制注册表编辑器?",4,t)

Else

WSHShell.RegDeletev

M=MsgBox("是否解除注册表编辑器限制?",4,t)

EndIf

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

打开或关闭任务管理器:

DimWSHShell,r,m,v,t,g

Dimi

OnErrorResumeNext

SetWSHShell=WScript.CreateObject("WScript.Shell")

v="HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr"

i="REG_DWORD"

t="任务管理器开关"

r=WSHShell.RegRead(v)

g=1

If(r=1)Theng=0

Ifg=1Then

WSHShell.RegWritev,1,i

m=MsgBox("是否限制任务管理器?",3,t)

Else

WSHShell.RegDeletev

m=MsgBox("是否解除任务管理器限制?",3,t)

EndIf

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

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

【用vbs操作注册表实例代码】相关文章:

vbs 注册表操作类代码

vbs获取当前时间日期的代码

获取远程机器共享目录的物理路径的代码

vbs删除注册表项的代码

用vbs将名称转换为正确的大小写的代码

实用vbs提醒小程序

用vbs实现显示系统调色板的代码

Vbs脚本实现radmin终极后门代码_删除自身

用vbs实现的exe2swf工具脚本代码

进程监控实现代码[vbs+bat]

精品推荐
分类导航