Function GetXMLVersion(optional $strComputer)
   DIM $strKey, $intIndex, $intI, $strValName, $arrVer[10]
   If $strComputer = ""
      $strComputer = "."
   EndIf
   ;
   $strKey="\HKEY_CLASSES_ROOT\CLSID\{2933BF90-7B36-11D2-B20E-00C04F983E60}\VersionList"
   $intIndex = 0
   $intI     = 0
   If KeyExist("\\" + $strComputer + $strKey)
      $strValName = EnumValue("\\" + $strComputer + $strKey, $intIndex)
      While Not @ERROR
         If $strValName <> "(Default)"
            ; Want to ignore the Default entry
            $arrVer[$intI] = $strValName
            $intI = $intI + 1
         EndIf
         $intIndex = $intIndex + 1
         $strValName = EnumValue("\\" + $strComputer + $strKey, $intIndex)
      Loop
   EndIf
   ; To mark the end of the array, place a -1 in the next array position.
   $arrVer[$intI] = -1
   $GetXMLVersion = $arrVer
EndFunction

Function GetXMLVersion(optional $strComputer)
  redim $GetXMLVersion[10]
  dim $oldopt, $strKey, $intI

  $strKey="HKEY_CLASSES_ROOT\CLSID\{2933BF90-7B36-11D2-B20E-00C04F983E60}\VersionList"

  If vartype($strComputer) = 0  $strComputer = ""   EndIf
  If $strComputer  $strKey = "\\"+$strComputer+"\"+$strKey   EndIf

  $oldopt = SetOption( "WOW64AlternateRegView", "Off")
  $intI = -1
  If KeyExist( $strKey )
    dim $intIndex, $strValName

    $intIndex = 0
    $strValName = EnumValue( $strKey, $intIndex )
    While Not @ERROR
      If $strValName <> ""
        ; Want to ignore the Default entry
        $intI = $intI + 1
        if $intI > UBound($GetXMLVersion)
          redim preserve $GetXMLVersion[UBound($GetXMLVersion)*2]
        endif
        $GetXMLVersion[$intI] = $strValName
      EndIf
      $intIndex = $intIndex + 1
      $strValName = EnumValue( $strKey, $intIndex)
    Loop
  EndIf
  $oldopt = SetOption( "WOW64AlternateRegView", $oldopt )

  if $intI=-1     exit 1    endif

  redim  preserve $GetXMLVersion[$intI]
  exit 0
EndFunction

;--------------------------------
;  demo
;--------------------------------
$arrVers = GetXMLVersion()
if not @error
  for each $vers in $arrVers
    $vers ?
  next
endif