手机
当前位置:查字典教程网 >脚本专栏 >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将名称截断以使其最多包含 16 个字符的代码

一个最简单的vbs类实例代码

vbs删除注册表项的代码

用VBS实现PHP的md5_file函数代码

用VBS记录客户机操作的代码

纯vbs实现zip压缩与unzip解压缩函数代码

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

使用vbscript脚本在表单中进行选择的代码

用vbscript得到注册表中是否存在某个值

利用vbs自动修改ip的代码

精品推荐
分类导航