中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-05 02:04 		共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术（批处理室） » 枚举主键并获取特定主键
可打印版本 　833 / 3
第1楼　wert123 发表于 2007-06-12 20:15
中级用户　发帖 135　积分 301
枚举主键并获取特定主键


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

[ Last edited by wert123 on 2007-6-20 at 08:16 PM ]
第2楼　wert123 发表于 2007-06-20 19:57
中级用户　发帖 135　积分 301
baomaboy，slore来帮我看看吧
第3楼　slore 发表于 2007-06-20 20:09
铂金会员　发帖 2,478　积分 5,212
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
第4楼　wert123 发表于 2007-06-20 20:16
中级用户　发帖 135　积分 301
slore大师，真是感激不尽啊
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023