VBS - Reg-Werte in Array einlesen und später wieder auslesen?

Const HKLM = &H80000002
Const DWORD = 4
strComputer = "."  

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _  
    strComputer & "\root\default:StdRegProv")  
 
sKey = "Software\Microsoft\Windows NT\CurrentVersion\FontMapper"  
objReg.EnumValues HKLM, sKey, aNames, aTypes

'nur ein Gesamtarray  
Dim aEntries
ReDim aEntries(UBound(aNames), 1)
'eigenes Array für Werte  
Dim aValues
ReDim aValues(UBound(aNames))
'Dictionary  
Set d = CreateObject("Scripting.Dictionary")  

For i = 0 To UBound(aNames)
    If aTypes(i) = DWORD Then
        objReg.GetDWORDValue HKLM, sKey, aNames(i), Value
        'nur ein Gesamtarray  
        aEntries(i, 0) = aNames(i)
        aEntries(i, 1) = Value
        'eigenes Array für Werte  
        aValues(i) = Value
        'Dictionary  
        d.Add aNames(i), Value
    End If
Next

'Aufruf der Unterprogramme  
NurEinArray
WScript.Echo "-----------------------"  
Eigenes
WScript.Echo "-----------------------"  
Dict
'##################  
'Ende Hauptprogramm  
'##################  

'Unterprogramme  
Sub NurEinArray
'nur ein Gesamtarray  
For i = 0 To UBound(aEntries)
    WScript.Echo aEntries(i, 0) & ": " & aEntries(i, 1)  
Next
End Sub

Sub Eigenes
'eigenes Array für Werte  
For i = 0 To UBound(aNames)
    WScript.Echo aNames(i) & ": " & aValues(i)  
Next
End Sub

Sub Dict
'Dictionary  
For Each Key In d.Keys
    WScript.Echo Key & ": " & d.Item(Key)  
Next
End Sub

'Aufruf der Unterprogramme  
NurEinArray aEntries
WScript.Echo "-----------------------"  
Eigenes aNames, aValues
WScript.Echo "-----------------------"  
Dict d
'##################  
'Ende Hauptprogramm  
'##################  

'Unterprogramme  
Sub NurEinArray(aE)
'nur ein Gesamtarray  
For i = 0 To UBound(aE)
    WScript.Echo aE(i, 0) & ": " & aE(i, 1)  
Next
End Sub

Sub Eigenes(aN, aV)
'eigenes Array für Werte  
For i = 0 To UBound(aN)
    WScript.Echo aN(i) & ": " & aV(i)  
Next
End Sub

Sub Dict(dic)
'Dictionary  
For Each Key In dic.Keys
    WScript.Echo Key & ": " & dic.Item(Key)  
Next
End Sub