如何使用vbscript读取注册表项的所有值？

Question

我的注册表中有以下值

键：

HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Accepted Documents\

价值观：

* -> application/msword
** -> application/vnd.ms-excel
*** -> application/vnd.ms-powerpoint

等等

我想知道如何阅读所有内容

与

Wscript.Shell

、

RegRead

我只能读取一个值，但我事先不知道这些值...

Answer 1

嗯，我明白了

我必须使用wmi，像这样：

option explicit

const HKLM = &H80000002

dim keyPath
keyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Accepted Documents"

dim reg

dim valueNames, types
dim value
dim i

  set reg = getObject( "Winmgmts:root\default:StdRegProv" )

  if reg.enumValues( HKLM, keyPath, valueNames, types ) = 0 then
    if isArray( valueNames ) then
      for i = 0 to UBound( valueNames )
        reg.getStringValue HKLM, keyPath, valueNames(i), value
        msgBox( valueNames(i) & "=" & value )
      next
    end if
  end if

致敬

SAS