[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
ibm

Rank: 5Rank: 5

帖子
87 
积分
512 
技术
0  
捐助
0  
注册时间
2008-9-4 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2008-11-14 13:04 | 只看该作者

如何通过VBS获取注册表中默认值的数据

想获取注册表中“HKCR\WinRAR\DefaultIcon　”的默认值的路径，代码该如何写？
收藏 分享

ibm

Rank: 5Rank: 5

帖子
87 
积分
512 
技术
0  
捐助
0  
注册时间
2008-9-4 
5楼
发表于 2008-11-15 16:15 | 只看该作者
我需要的就是默认值，如果没有默认值，这点我到是没有考虑到，谢谢提醒！

TOP

everest79

Rank: 5Rank: 5

帖子
179 
积分
1066 
技术
3  
捐助
0  
注册时间
2008-9-15 
4楼
发表于 2008-11-15 04:42 | 只看该作者
RegRead只能返回注册表某个键的值，键不存在或为空都会出错

HKCR\WinRAR\Defaulticon\ 表示该项的默认值
HKCR\WinRAR\Defaulticon\usertmp 表示该项下usertmp的值

TOP

ibm

Rank: 5Rank: 5

帖子
87 
积分
512 
技术
0  
捐助
0  
注册时间
2008-9-4 
3楼
发表于 2008-11-14 16:27 | 只看该作者
Set shell=CreateObject("Wscript.Shell")
Path=shell.RegRead("HKCR\WinRAR\DefaultIcon\")
msgbox path

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14927 
积分
46133 
技术
857  
捐助
745  
注册时间
2008-6-9 
2楼
发表于 2008-11-14 14:38 | 只看该作者 
  1. Set WshShell = WScript.CreateObject("WScript.Shell")

  2. '写注册表

  3. WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger", "ntsd -d", "REG_SZ"

  4. '读注册表

  5. WScript.Echo WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger")

  6. '删注册表

  7. WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\"
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表