创立对象
用VBScript修正注册表,必需先创立一个能于操作体系沟通的对象,再使用该对象的各类办法对注册表停止操作,创立这个对象的办法和格局以下:
Dim OperationRegistry
Set OperationRegistry=WScript.CreateObject("WScript.Shell")
上述这些代码就创立了一个能与操作体系沟通的对象OperationRegistry
3、RegDelete操作详解
删除操作RegDelete次要是用来删除注册表中已存在的主键或键值,该操作是一种极为风险的操作,它能将主键或键值绝不留情的在注册表中“砍失落”,不管该键值上面有多主要的数据,它都能畅行无阻,因而在利用该操作时务必当心。
删除操作的参数模式与读操作的参数模式几近完整不异,只是有一点小小的区分,那就是删除操作不需求将操作的前往值送给某一变量,例如:
`delete.vbs
Dim OperationRegistry
Set OperationRegistry=WScript.CreateObject("WScript.Shell")
OperationRegistry.RegRead("HKCR\.xxf\value")
`删除.xxf主键之下的value键值
OperationRegistry.RegRead("HKCR\.xxf\")
`删除根键HKEY_CLASSES_ROOT之下的.xxf主键
强调一点,不要更改注册表中已存在的主键或键值,更不要将它们删除,由于对注册表停止了不妥的写操作或删操作,情形严重的会招致体系溃散!假如你真想这么做,那就请你作好注册表的备份。
使用实例
1、读本机“盘算机名”
`ReadComputerName.vbs
Dim ReadComputerName
Set ReadComputerName=WScript.CreateObject("WScript.Shell")
Dim ComputerName,RegPath
RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"
ComputerName=ReadComputerName.RegRead(RegPath)
MsgBox("盘算机名为"&ComputerName)
2、埋没快捷体例图标上的小箭头
`Hidden.vbs
Dim HiddenArrowIcon
Set HiddenArrowIcon=WScript.CreateObject("WScript.Shell")
Dim RegPath1,RegPath2
RegPath1="HKCR\lnkfile\IsShortCut"
RegPath2="HKCR\piffile\IsShortCut"
HiddenArrowIcon.RegDelete(RegPath1)
HiddenArrowIcon.RegDelete(RegPath2)
3、改革“入手下手”菜单
`ChangeStartMenu.vbs
Dim ChangeStartMenu
Set ChangeStartMenu=WScript.CreateObject("WScript.Shell")
RegPath="HKCR\Software\Microsoft\Windows\CurrentVersion\Policies\"
Type_Name="REG_DWORD"
Key_Data=1