VBS怎样对注册表循环读取？

lqh123108

1. Private Shared Sub GetVersionFromRegistry()
   
2.     Using ndpKey As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry32).OpenSubKey("SOFTWARE\Microsoft\NET Framework Setup\NDP")
   
3. 
   
4.         For Each versionKeyName As String In ndpKey.GetSubKeyNames()
   
5.             If versionKeyName.StartsWith("v") Then
   
6.                 Dim versionKey As RegistryKey = ndpKey.OpenSubKey(versionKeyName)
   
7.                 Dim name As String = DirectCast(versionKey.GetValue("Version", ""), String)
   
8.                 Dim sp As String = versionKey.GetValue("SP", "").ToString()
   
9.                 Dim install As String = versionKey.GetValue("Install", "").ToString()
   
10.                 If install = "" Then
    
11.                     'no install info, ust be later
    
12.                     Console.WriteLine(versionKeyName & "  " & name)
    
13.                 Else
    
14.                     If sp <> "" AndAlso install = "1" Then
    
15.                         Console.WriteLine(versionKeyName & "  " & name & "  SP" & sp)
    
16. 
    
17.                     End If
    
18.                 End If
    
19.                 If name <> "" Then
    
20.                     Continue For
    
21.                 End If
    
22.                 For Each subKeyName As String In versionKey.GetSubKeyNames()
    
23.                     Dim subKey As RegistryKey = versionKey.OpenSubKey(subKeyName)
    
24.                     name = DirectCast(subKey.GetValue("Version", ""), String)
    
25.                     If name <> "" Then
    
26.                         sp = subKey.GetValue("SP", "").ToString()
    
27.                     End If
    
28.                     install = subKey.GetValue("Install", "").ToString()
    
29.                     If install = "" Then
    
30.                         'no install info, ust be later
    
31.                         Console.WriteLine(versionKeyName & "  " & name)
    
32.                     Else
    
33.                         If sp <> "" AndAlso install = "1" Then
    
34.                             Console.WriteLine("  " & subKeyName & "  " & name & "  SP" & sp)
    
35.                         ElseIf install = "1" Then
    
36.                             Console.WriteLine("  " & subKeyName & "  " & name)
    
37. 
    
38.                         End If
    
39.                     End If
    
40.                 Next
    
41.             End If
    
42.         Next
    
43.     End Using
    
44. End Sub

复制代码

这个是VB.NET ,能否改成VBS版本..

czjt1234

没看懂
解释下你要进行什么操作

yu2n

[原创] 读取、新建、修改、删除注册表键值专题帖
本帖最后由 batman 于 2012-12-26 00:02 编辑
http://www.bathome.net/thread-21223-1-1.html

1. 
   
2. '枚举注册表项及值
   
3. Const HKEY_LOCAL_MACHINE = &H80000002
   
4. Dim regWMI, FSO, Text
   
5. Set FSO = CreateObject("Scripting.FileSystemObject")
   
6. Set regWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
   
7. Dim regRoot, regPath, regStr
   
8. regRoot = HKEY_LOCAL_MACHINE
   
9. regPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
   
10. FSO.OpenTextFile("RegList.txt", 2, True).Write "HomePath:HKEY_LOCAL_MACHINE" & regPath & vbCrLf & vbcrlf & "RegList:" & vbCrLf
    
11. Set Text = FSO.OpenTextFile("RegList.txt", 8, True)
    
12. GetValues regPath
    
13. GetKeys regPath
    
14. Set FSO = Nothing
    
15. Set regWMI = Nothing
    
16. CreateObject("Wscript.Shell").run "cmd /cRegList.txt", True, False
    
17. 
    
18. Function GetKeys(Path)
    
19.   'Text.WriteLine path & vbCrLf
    
20.   Dim arrRegKeys, regKey
    
21.   regWMI.Enumkey regRoot, path, arrRegKeys
    
22.   For Each regKey In arrRegKeys
    
23.     On Error Resume Next
    
24.     newpath = path & "" & regKey
    
25.     GetValues newpath
    
26.     GetKeys newpath
    
27.   Next
    
28. End Function
    
29. 
    
30. Function GetValues(path)
    
31.   Dim regValue, arrRegNames, arrValueTypes, arrRegValues, Multi, regValueType
    
32.   regWMI.EnumValues regRoot, path, arrRegNames, arrValueTypes
    
33.   For i = 0 To UBound(arrRegNames)
    
34.     If Len(arrRegNames(i)) > 0 Then
    
35.       Multi = vbNullString
    
36.       Select Case arrValueTypes(i)
    
37.         Case 1
    
38.           regWMI.GetStringValue regRoot, path, arrRegNames(i), regValue
    
39.           regValueType = "REG_SZ"
    
40.         Case 2
    
41.           regWMI.GetExpandedStringValue regRoot, path, arrRegNames(i), regValue
    
42.           regValueType = "REG_EXPAND_SZ"
    
43.         Case 3
    
44.           regWMI.GetBinaryValue regRoot, path, arrRegNames(i), regValue
    
45.           regValueType = "REG_BINARY"
    
46.         Case 4
    
47.           regWMI.GetDwordValue regRoot, path, arrRegNames(i), regValue
    
48.           regValueType = "REG_DWORD"
    
49.         Case 7
    
50.           regWMI.GetMultiValue regRoot, path, arrRegNames(i), arrRegValues
    
51.           regValueType = "REG_MULTI_SZ"
    
52.           Multi = "yes"
    
53.       End Select
    
54.       If Multi = "yes" Then
    
55.         For Each str In arrRegValues
    
56.           regValue = regValue & str & vbTab
    
57.         Next
    
58.       End If
    
59.       newpath = Replace(path, regPath, "")
    
60.       If Left(newpath, 1) = "" Then newpath = Mid(newpath,2,Len(newpath))
    
61.       Text.WriteLine newpath & arrRegNames(i) & vbTab & regValueType & vbTab & regValue
    
62.     End If
    
63.   Next
    
64. End Function

复制代码