oReg.EnumKeyを使用せずにVBSでレジストリキーの配列を作成する

Question

このコード行を使用して、sPathの最後にレジストリキーを使用して配列を埋めます。 Win7を除くすべてのインスタンスで動作します。 Win8、Win10で問題なく動作します。鍵が存在することを確認したので、そうではありません。

ret = oReg.EnumKey(&H80000002, sPath, guidlist) 

私は "ret"の戻り値を読み込もうとしましたが、空白またはおそらくNULLのようですか？私は 'objLog.WriteLine'を使用します。これはret "& ret"です。 「これはretです」というメッセージだけを書き出します

VBSを使用してアレイを作成する別の方法はありますか？

Answer 1

これはEnumKeyを使用せずに32ビットアプリケーションから64ビットレジストリに到達するために使用したコードです。

objLog.WriteLine "Begin StdRegProv reg read method" 
strComputer = "." 
Const HKLM = &h80000002 
Set objCtx = CreateObject("WbemScripting.SWbemNamedValueSet") 
objCtx.Add "__ProviderArchitecture", 64 
objCtx.Add "__RequiredArchitecture", TRUE 
Set objLocator = CreateObject("Wbemscripting.SWbemLocator") 
Set objServices = objLocator.ConnectServer("","root\default","","",,,,objCtx) 
Set objStdRegProv = objServices.Get("StdRegProv") 

objLog.WriteLine "About to call EnumKey with ExecMethod" 

' Use ExecMethod to call the EnumKey method 
Set Inparams = objStdRegProv.Methods_("EnumKey").Inparameters 
Inparams.Hdefkey = HKLM 
Inparams.Ssubkeyname = sPath 
'InParams.aArrayOfGuids = guidlist() 
'Inparams.Svaluename = "Logging" 
set Outparams = objStdRegProv.ExecMethod_("EnumKey", Inparams,,objCtx) 

objLog.WriteLine "Finished creating array of guids" 
'read values in array 
'For Each guid In Outparams.snames 
' objLog.WriteLine "these are the guids in the array - " & guid 
'Next 

For each guid1 in Outparams.snames 

    dim InstallPropertiesPath 
    InstallPropertiesPath = sPath & "\" & guid1 & SubPath1 
    objLog.WriteLine "The InstallPropertiesPath is " & InstallPropertiesPath 

    ' Use ExecMethod to call the GetStringValue method 
    Set Inparams = objStdRegProv.Methods_("GetStringValue").Inparameters 
    Inparams.Hdefkey = HKLM 
    Inparams.Ssubkeyname = InstallPropertiesPath 
    Inparams.sValueName = "LocalPackage" 
    'InParams.aArrayOfGuids = guidlist() 
    'Inparams.Svaluename = "Logging" 
    set Outparams = Nothing 
    set Outparams = objStdRegProv.ExecMethod_("GetStringValue", Inparams,,objCtx) 

    objLog.WriteLine "About to call DetectMSIFeature with this path - " & Outparams.SValue 

Answer 2

EnumKeyは正しい方法です。 guidlistには、retではなく、必要な出力が含まれます。