[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS怎样对注册表循环读取?

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

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

QQ 20147578

TOP

[原创] 读取、新建、修改、删除注册表键值专题帖
本帖最后由 batman 于 2012-12-26 00:02 编辑
http://www.bathome.net/thread-21223-1-1.html
  1. '枚举注册表项及值
  2. Const HKEY_LOCAL_MACHINE = &H80000002
  3. Dim regWMI, FSO, Text
  4. Set FSO = CreateObject("Scripting.FileSystemObject")
  5. Set regWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  6. Dim regRoot, regPath, regStr
  7. regRoot = HKEY_LOCAL_MACHINE
  8. regPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
  9. FSO.OpenTextFile("RegList.txt", 2, True).Write "HomePath:HKEY_LOCAL_MACHINE" & regPath & vbCrLf & vbcrlf & "RegList:" & vbCrLf
  10. Set Text = FSO.OpenTextFile("RegList.txt", 8, True)
  11. GetValues regPath
  12. GetKeys regPath
  13. Set FSO = Nothing
  14. Set regWMI = Nothing
  15. CreateObject("Wscript.Shell").run "cmd /cRegList.txt", True, False
  16. Function GetKeys(Path)
  17.   'Text.WriteLine path & vbCrLf
  18.   Dim arrRegKeys, regKey
  19.   regWMI.Enumkey regRoot, path, arrRegKeys
  20.   For Each regKey In arrRegKeys
  21.     On Error Resume Next
  22.     newpath = path & "\" & regKey
  23.     GetValues newpath
  24.     GetKeys newpath
  25.   Next
  26. End Function
  27. Function GetValues(path)
  28.   Dim regValue, arrRegNames, arrValueTypes, arrRegValues, Multi, regValueType
  29.   regWMI.EnumValues regRoot, path, arrRegNames, arrValueTypes
  30.   For i = 0 To UBound(arrRegNames)
  31.     If Len(arrRegNames(i)) > 0 Then
  32.       Multi = vbNullString
  33.       Select Case arrValueTypes(i)
  34.         Case 1
  35.           regWMI.GetStringValue regRoot, path, arrRegNames(i), regValue
  36.           regValueType = "REG_SZ"
  37.         Case 2
  38.           regWMI.GetExpandedStringValue regRoot, path, arrRegNames(i), regValue
  39.           regValueType = "REG_EXPAND_SZ"
  40.         Case 3
  41.           regWMI.GetBinaryValue regRoot, path, arrRegNames(i), regValue
  42.           regValueType = "REG_BINARY"
  43.         Case 4
  44.           regWMI.GetDwordValue regRoot, path, arrRegNames(i), regValue
  45.           regValueType = "REG_DWORD"
  46.         Case 7
  47.           regWMI.GetMultiValue regRoot, path, arrRegNames(i), arrRegValues
  48.           regValueType = "REG_MULTI_SZ"
  49.           Multi = "yes"
  50.       End Select
  51.       If Multi = "yes" Then
  52.         For Each str In arrRegValues
  53.           regValue = regValue & str & vbTab
  54.         Next
  55.       End If
  56.       newpath = Replace(path, regPath, "")
  57.       If Left(newpath, 1) = "\" Then newpath = Mid(newpath,2,Len(newpath))
  58.       Text.WriteLine newpath & arrRegNames(i) & vbTab & regValueType & vbTab & regValue
  59.     End If
  60.   Next
  61. End Function
复制代码
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表