function CheckVersion(MetaData, RequiredVersion)
  dim lDocumentLoader
  dim lInstalled(3)
  dim lNode
  dim lRequired
  dim lVersion
  dim lWebIndex
  
  on error resume next
  CheckVersion = false
  if IsValidObject(MetaData) then
    lInstalled(0) = cint(GetSafeAttribute(MetaData, "major"))
    lInstalled(1) = cint(GetSafeAttribute(MetaData, "minor"))
    lInstalled(2) = cint(GetSafeAttribute(MetaData, "release"))
    lInstalled(3) = cint(GetSafeAttribute(MetaData, "build"))
    lRequired = Split(RequiredVersion, ".")
    
    CheckVersion = (lInstalled(0) > cint(lRequired(0)))
    if not CheckWMPVersion and (lInstalled(0) = cint(lRequired(0))) then
      CheckVersion = (lInstalled(1) > cint(lRequired(1)))
      if not CheckVersion and (lInstalled(1) = cint(lRequired(1))) then
        CheckVersion = (lInstalled(2) > cint(lRequired(2)))
        if not CheckVersion and (lInstalled(2) = cint(lRequired(2))) then
          CheckVersion = (lInstalled(3) >= cint(lRequired(3)))
        end if
      end if
    end if
  end if
end function

function ConvertToVersionString(MetaData)
  dim lResult
  lResult = "0.0.0.0"
  
  if IsValidObject(MetaData) then
    lResult = GetSafeAttribute(MetaData, "major")
    lResult = lResult & "." & GetSafeAttribute(MetaData, "minor")
    lResult = lResult & "." & GetSafeAttribute(MetaData, "release")
    lResult = lResult & "." & GetSafeAttribute(MetaData, "build")
  end if
  
  ConvertToVersionString = lResult
end function