快速业务通道

vbscript Registry 注册表操作实现代码(读写删除)

作者 佚名 来源 ASP编程 浏览 发布时间 2013-07-09
VBScript Code:
复制代码 代码如下:

'' Create a WSH Shell object:
Set wshShell = CreateObject( "WScript.Shell" )
''
'' Create a new key:
wshShell.RegWrite "HKCU\TestKey\", ""

'' Create a new DWORD value:
wshShell.RegWrite "HKCU\TestKey\DWordTestValue", 1, "REG_DWORD"

'' Create a new subkey and a string value in that new subkey:
wshShell.RegWrite "HKCU\TestKey\SubKey\StringTestValue", "Test", "REG_SZ"

'' Read the values we just created:
WScript.Echo "HKCU\TestKey\DWordTestValue = " _
& wshShell.RegRead( "HKCU\TestKey\DWordTestValue" )
WScript.Echo "HKCU\TestKey\SubKey\StringTestValue = """ _
& wshShell.RegRead( "HKCU\TestKey\SubKey\StringTestValue" ) & """"

'' Delete the subkey and key and the values they contain:
wshShell.RegDelete "HKCU\TestKey\SubKey\"
wshShell.RegDelete "HKCU\TestKey\"

'' Note: Since the WSH Shell has no Enumeration functionality, you cannot
'' use the WSH Shell object to delete an entire "tree" unless you
'' know the exact name of every subkey.
'' If you don''t, use the WMI StdRegProv instead.

'' Release the object
Set wshShell = Nothing

用VBScript编写的WSH程序文件的扩展名为.vbs,该脚本程序在窗口界面是由wscript.exe文件解释执行的,在字符界面是由cscript.exe文件解释执行的,命令格式为:cscript filename.vbs
 
创建对象

  用VBScript修改注册表,必须先创建一个能于操作系统沟通的对象,再利用该对象的各种方法对注册表进行操作,创建这个对象的方法和格式如下:
Dim OperationReGIStry
Set OperationRegistry=WScript.CreateObject("WScript.Shell")
  上述这些代码就创建了一个能与操作系统沟通的对象OperationRegistry
对象的方法
有了以上这个对象,并不等于就能马上对注册表进行操作,我们还必须弄清该对象对注册表进行操作的几种重要方法.
   1.对注册表的读操作RegRead
   2.对注册表的写操作RegWrite
   3.对注册表的删操作RegDelete

   补充一点,WSH还有两个通用的方法:
   WScript.Echo()用来显示一串文本信息,相当于VB中的MsgBox()。
   Wscript.Quit()用来退出VBScript程序。
 
方法的参数
  对于以上三种操作RegRead,RegWrite,RegDelete都需要带参数进行,并且这些操作的参数的个数和形式又不尽相同,下面我就把它们的一个共同且必不可少的参数讲一下:
该参数可称作是"路径参数",它包括根键,主键路径和键值,各部分表示的方法如下:
根键:
  根键有两种表示方法。
  方法一:直接用它在注册表中的字符串来表示,如:
  HKEY_CLASSES_ROOT,HKEY_CURRENT_USER等
  方法二:用缩写的四个字母来表示,前两个为HK,后两个即为根键单词的首字母。如:
  根键HKEY_CLASSES_ROOT表示为:HKCR, 根键HKEY_CURRENT_USER可表示为:HKCU等。
主键路径:
  主键路径就是目标键在注册表中的主键位置,各个主键之间用"\"符分隔开。如:"Software\Microsoft\Windows\CurrentVersion\Policies\"
  键值:
  键值参数直接接在主键路径之后。例如一个完整的路径如下所示:
  "HKCR\Software\Microsoft\Windows\CurrentVersion\Policies\NoRun"
 
方法详解

  1、RegRead操作详解

  读操作RegRead主要是用来读取注册表中主键的默认值或键值的数据,我们可以将读得的数据送到相应的变量中,再利用VB中的MsgBox()函数将该数据显示出来,这就达到了读取注册表中数据的目的(也可以利用对象OperationRegistry的方法Popup()将读取的数据送至屏幕), 例如:

复制代码 代码如下:

   ''read.vbs(将以下代码存为read.vbs文件)
   Dim OperationRegistry
   Set OperationRegistry=WScript.CreateObject("WScript.Shell")
   Dim Read_Data1,Read_Data2
   Read_Data1=OperationRegistry.RegRead("HKCR\.xxf\")
   ''读取根键HKEY_CLASSES_ROOT之下的.xxf主键的默认值,并将该数据送至变量Read_Data1
   Read_Data2=OperationRegistry.RegRead("HKCR\.xxf\value")
   ''读取.xxf主键之下的value键值的数据,并将该数据送至变量Read_Data2
   MsgBox("Default="&Read_Data1&" value="&Read_Data2)
   ''将读取的数据显示出来

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号