RegValue = CreateObject("Wscript.Shell").RegRead("/XXXX_XXXXXXXX_XXX/XXX/XXXX")
Msgbox(RegValue)

Const HKLM = &H80000002
strPath = "SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/Desktop/NameSpace"
Set oReg = GetObject("Winmgmts:/root/default:StdRegProv")
    oReg.EnumKey HKLM,strPath,arr
    For Each x In arr
        WScript.Echo x
    Next