标题: 枚举主键并获取特定主键 [打印本页]

---

作者: wert123     时间: 2007-6-12 20:15    标题: 枚举主键并获取特定主键


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

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

---

作者: wert123     时间: 2007-6-20 19:57
baomaboy，slore来帮我看看吧

---

作者: slore     时间: 2007-6-20 20:09
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

---

作者: wert123     时间: 2007-6-20 20:16
slore大师，真是感激不尽啊