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

Question

我在注册表中的以下值

键： HKLM \ SOFTWARE \微软\的Windows \ CurrentVersion \ Internet设置\接受的文件\

值：

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

等

我想知道如何阅读所有人

与wscript。外壳，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 

saludos

sas