中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-05 17:02

共 48,039 主题排行 / 350,124 发帖 / 今日 2 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » 如何用VBS的regread方法列出注册表RUN项下所有的值？

可打印版本　1,049 / 14

第1楼　qinbuer	发表于 2007-08-31 18:06
高级用户　发帖 228　积分 512
如何用VBS的regread方法列出注册表RUN项下所有的值？如题

第2楼　qinbuer	发表于 2007-08-31 19:16
高级用户　发帖 228　积分 512
沉了，沉了~~

第3楼　slore	发表于 2007-08-31 19:35
铂金会员　发帖 2,478　积分 5,212
RegRead主要是用来读取注册表中主键的默认值或键值的数据你觉得能有办法麽？

第4楼　qinbuer	发表于 2007-08-31 19:43
高级用户　发帖 228　积分 512
不好意思，似乎问了蠢问题了，请见谅。那VBS有什么方法能实现我的要求呢？

第5楼　slore	发表于 2007-08-31 20:02
铂金会员　发帖 2,478　积分 5,212
我觉得没有直接的方法……

第6楼　qinbuer	发表于 2007-08-31 20:22
高级用户　发帖 228　积分 512
哦，谢谢. 问个不相干的问题。批处理中有转义字符，在VBS中应该如何表示呢？比如我想向某文本写入这样的语句： writefile.WriteLine "set WSH=CreateObject("wscript.shell")" 怎样表达才是正确的？

第7楼　slore	发表于 2007-08-31 20:23
铂金会员　发帖 2,478　积分 5,212
VBS只有"需要转义为""

第8楼　qinbuer	发表于 2007-08-31 20:30
高级用户　发帖 228　积分 512
能否给个例子？比如： Dim fso,writefile Set fso=CreateObject("Scripting.FileSystemObject") Set writefile=fso.OpenTextFile("Login.vbs",2,true) writefile.WriteLine "Dim WSH" writefile.WriteLine "set WSH=CreateObject("wscript.shell")" 其中的writefile.WriteLine "set WSH=CreateObject("wscript.shell")"怎样写才是正确的？

第9楼　3742668	发表于 2007-08-31 21:22
荣誉版主　发帖 718　积分 2,013
1.别忘记了WMI： Dim strPath,x,strOut Dim arrValueNames Dim oReg Const HKLM = &H80000002 strPath = "Software\Microsoft\Windows\CurrentVersion\Run" Set oReg = GetObject("Winmgmts:\root\default:StdRegProv") oReg.EnumValues HKLM,strPath,arrValueNames For Each x In arrValueNames strOut = strOut & x & vbCrLf Next WScript.Echo strOut 2：注意引号中的引号，可以尝试把中间的两个引号用chr(34)来替换。例如： writefile.WriteLine "set WSH=CreateObject(" & chr(34) & "wscript.shell" & chr(34) & ")"

第10楼　3742668	发表于 2007-08-31 21:25
荣誉版主　发帖 718　积分 2,013
另外，如果用BAT的话可以参考利用WMIC读取注册表

第11楼　qinbuer	发表于 2007-08-31 21:28
高级用户　发帖 228　积分 512
实在非常感谢3742668，初学者总有一堆问题。^_^

第12楼　jmz573515	发表于 2007-08-31 21:30
银牌会员　发帖 464　积分 1,212
TO:3742668 可不可以把它的键值也读出来呢？

第13楼　slore	发表于 2007-08-31 21:31
铂金会员　发帖 2,478　积分 5,212
writefile.WriteLine "set WSH=CreateObject(“"wscript.shell”")" 不喜欢chr……

第14楼　slore	发表于 2007-08-31 21:57
铂金会员　发帖 2,478　积分 5,212
Originally posted by jmz573515 at 2007-8-31 21:30: TO:3742668 可不可以把它的键值也读出来呢？读当然可以…… 不过不同类型还要用不同的方法＝。＝

第15楼　3742668	发表于 2007-08-31 21:58
荣誉版主　发帖 718　积分 2,013
Originally posted by jmz573515 at 2007-8-31 21:30: TO:3742668 可不可以把它的键值也读出来呢？有了键名，再用RegRead或GetStringValue不就得到了一切？

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023