《完整的注册表操作实例 vbs脚本》由会员分享,可在线阅读,更多相关《完整的注册表操作实例 vbs脚本(7页珍藏版)》请在金锄头文库上搜索。
1、创建主键、创建各类型的键值。 读取键值并分析键值类型。 枚举主键及键值。 判断键或键值是否存在。 查询注册表键的操作权限。 监视注册表根键、主键、键值,当发现变动时提示。 复制代码 代码如下:注册表查询/操作 On Error Resume Next Const HKEY_CLASSES_ROOT = &H80000000设置注册表 5 大根键,HKCR- Const HKEY_CURRENT_USER = &H80000001HKCU Const HKEY_LOCAL_MACHINE = &H80000002HKLM Const HKEY_Users = &H80000003HKU Cons
2、t HKEY_Current_Config = &H80000005HKCC Const REG_SZ = 1设置注册表键值类型,字符串型- Const REG_EXPAND_SZ = 2扩展字符串型 Const REG_BINARY = 3二进制型 Const REG_DWORD = 4双字节型 Const REG_MULTI_SZ = 7多字符串型 Const KEY_QUERY_VALUE = &H0001查询注册表权限,查询数值- Const KEY_SET_VALUE = &H0002设置数值 Const KEY_CREATE_SUB_KEY = &H0004创建子项 Const D
3、ELETE = &H00010000删除项值 -配置环境(路径)-00 strComputer = . Set WshShell = WScript.CreateObject(WScript.Shell) Set oReg=GetObject(winmgmts:impersonationLevel=impersonate! & strComputer & rootdefault:StdRegProv) strKeyRoot = HKEY_LOCAL_MACHINE Regpath = HKEY_LOCAL_MACHINE strKeyPath = SoftwareMicrosoftWindow
4、sCurrentVersionRun WshSHell.popup 设置路径【 HKLMSoftwareMicrosoftWindowsCurrentVersionRun】成功&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&5 秒钟后本窗口将自动关闭!, 5, QQ:25926183, 0 + 64 -创建主键REG_KEY_SZ-01 strKeyPathNew = SoftwareMicrosoftWindowsCurrentVersionRunUser_baomaboy注意因为是新建主键,要多加个“” oReg.CreateKey strKeyRoot, strK
5、eyPathNew WshSHell.popup 创建主键【HKLMSoftwareMicrosoftWindowsCurrentVersionRunUser_baomaboy】成功&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&5 秒钟后本窗口将自动关闭!, 5, QQ:25926183, 0 + 64 -创建字符串值REG_SZ-02 strValueName=1 字符串名 strValue=字符串值 oReg.SetStringValue strKeyRoot, strKeyPath, strValueName, strValue WshSHell.popup 创
6、建字符串【HKLMSoftwareMicrosoftWindowsCurrentVersionRun1 字符串名】成功&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&5 秒钟后本窗口将自动关闭!, 5, QQ:25926183, 0 + 64 -创建双字节值REG_DWORD- strValueName=2 双字节名 strValue=1 oReg.SetDWORDValue strKeyRoot, strKeyPath, strValueName, strValue WshSHell.popup 创建双字节值【HKLMSoftwareMicrosoftWindowsC
7、urrentVersionRun2双字节名】成功&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&5 秒钟后本窗口将自动关闭!, 5, QQ:25926183, 0 + 64 -创建多字符串REG_MULTI_SZ- strValueName=3 多字符串名 arrStringValues = Array(QQ25926183, userbaomaboy,LLKJ, 玲珑科技) oReg.SetMultiStringValue strKeyRoot, strKeyPath, strValueName, arrStringValues WshSHell.popup 创建多字
8、符串【HKLMSoftwareMicrosoftWindowsCurrentVersionRun3多字符串名】成功&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&5 秒钟后本窗口将自动关闭!, 5, QQ:25926183, 0 + 64 -创建扩展字符串REG_EXPAND_SZ- strValueName = 4 扩展字符串名 strValue = %PATHEXT% oReg.SetExpandedStringValue strKeyRoot, strKeyPath, strValueName, strValue WshSHell.popup 创建扩展字符串【HK
9、LMSoftwareMicrosoftWindowsCurrentVersionRun4 扩展字符串名】成功&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&5 秒钟后本窗口将自动关闭!, 5, QQ:25926183, 0 + 64 -创建二进制值REG_BINVRY_SZ- RegPathEr=Regpath&SoftwareMicrosoftWindowsCurrentVersionRun5 二进制值 WshSHell.RegWrite RegPathEr,1,REG_BINARY WshSHell.popup 创建二进制值【HKLMSoftwareMicrosof
10、tWindowsCurrentVersionRun5二进制值】成功&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&5 秒钟后本窗口将自动关闭!, 5, QQ:25926183, 0 + 64 - 读取字符串值REG_VALUE- oReg.GetStringValue strKeyRoot, strKeyPath, 1 字符串名, strRunCommand WshSHell.popup 读取字符串值:&vbcrlf&vbcrlf&strRunCommand&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&5 秒钟后本窗口将自动关闭!, 5, QQ
11、:25926183, 0 + 64 - 读取双字节值REG_DWORD- oReg.GetDWORDValue strKeyRoot, strKeyPath, 2 双字节名, strRunCommand WshSHell.popup 读取双字节值:&vbcrlf&vbcrlf&strRunCommand&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&5 秒钟后本窗口将自动关闭!, 5, QQ:25926183, 0 + 64 - 读取多字符串值REG_MULTI_SZ- oReg.GetMultiStringValue strKeyRoot, strKeyPath, 3
12、 多字符串名, arrValues For Each strValue In arrValues DuoString=DuoString&vbcrlf&strValue Next WshSHell.popup 读取多字符串值:&vbcrlf&vbcrlf&DuoString&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&5 秒钟后本窗口将自动关闭!, 5, QQ:25926183, 0 + 64 - 读取扩展字符串REG_EXPAND_SZ- oReg.GetExpandedStringValue strKeyRoot, strKeyPath, 4 扩展字符串名, st
13、rValue WshSHell.popup 读取扩展字符串值:&vbcrlf&vbcrlf&strValue&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&5 秒钟后本窗口将自动关闭!, 5, QQ:25926183, 0 + 64 - 读取二进制值REG_BINVRY_SZ- oReg.GetBinaryValue strKeyRoot, strKeyPath, 5 二进制值, strValue For i = lBound(strValue) to uBound(strValue) ErString=ErString&strValue(i) Next WshSHell.popup 读取二进制值:&vbcrlf&vbcrlf&ErString&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&5 秒钟后本窗口将自动关闭!, 5, QQ:25926183, 0 + 64 - 枚举主键SUB_KEY-