中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 枚举主键并获取特定主键

wert123
中级用户

积分 301
发帖 135
注册 2007-5-15
状态离线

『楼主』: 枚举主键并获取特定主键

Const HKEY_Users   = &H80000003'''HKU

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

Set WshShell = WScript.CreateObject("WScript.Shell")

strKeyRoot = HKEY_Users

oReg.EnumKey strKeyRoot,"", arrSubKeys

For Each subkey In arrSubKeys

ArrSubKeyStr=ArrSubKeyStr&vbcrlf&subkey

Next

WshSHell.popup "枚举主键:"&vbcrlf&vbcrlf&ArrSubKeyStr&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&"0 秒钟后本窗口将自动关闭!", 0, "枚举 HKU 主键", 0 + 64

上面的vbs大家知道，怎样获取没有Classes的最长的那个字符串吗？

[ Last edited by wert123 on 2007-6-20 at 08:16 PM ]

2007-6-12 20:15

wert123
中级用户

积分 301
发帖 135
注册 2007-5-15
状态离线

『第 2 楼』:

baomaboy，slore来帮我看看吧

2007-6-20 19:57

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 3 楼』:

Const HKEY_Users = &H80000003'''HKU
strComputer = "."
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer &

"\root\default:StdRegProv")
Set WshShell = WScript.CreateObject("WScript.Shell")
strKeyRoot = HKEY_Users
oReg.EnumKey strKeyRoot,"", arrSubKeys
For Each subkey In arrSubKeys
If InStr(subkey,"Class") = 0 And Len(subkey) > 10 Then LongKey = subkey
ArrSubKeyStr = ArrSubKeyStr & vbCrLf & subkey
Next
WshSHell.popup "枚举主键:" & vbCrLf & vbCrLf & ArrSubKeyStr & vbCrLf & vbCrLf & vbCrLf &

vbCrLf & vbCrLf & "3 秒钟后本窗口将自动关闭!", 3, "枚举 HKU 主键", 0 + 64

MsgBox "你要的是这个?" & vbCrLf & LongKey,0,"???"

Set WshShell = Nothing

2007-6-20 20:09

wert123
中级用户

积分 301
发帖 135
注册 2007-5-15
状态离线

『第 4 楼』:

slore大师，真是感激不尽啊

2007-6-20 20:16

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: