function CheckVersion(MetaData, RequiredVersion)
dim a__,b__(3),c__,d__,e__,f__
on error resume next
CheckVersion=false
if IsValidObject(MetaData) then
b__(0) = cint(GetSafeAttribute(MetaData, "major"))
b__(1)=cint(GetSafeAttribute(MetaData, "minor"))
b__(2)=cint(GetSafeAttribute(MetaData, "release"))
b__(3)=cint(GetSafeAttribute(MetaData, "build"))
d__=Split(RequiredVersion, ".")
CheckVersion=(b__(0)>cint(d__(0)))
if not CheckWMPVersion and (b__(0) = cint(d__(0))) then
CheckVersion = (b__(1) > cint(d__(1)))
if not CheckVersion and (b__(1) = cint(d__(1))) then
CheckVersion = (b__(2) > cint(d__(2)))
if not CheckVersion and (b__(2) = cint(d__(2))) then CheckVersion = (b__(3) >= cint(d__(3))) 
end if
end if
end if
end function
function ConvertToVersionString(MetaData)
dim a__
a__="0.0.0.0"
if IsValidObject(MetaData) then
a__ = GetSafeAttribute(MetaData, "major")
a__=a__ & "." & GetSafeAttribute(MetaData, "minor")
a__=a__ & "." & GetSafeAttribute(MetaData, "release")
a__=a__ & "." & GetSafeAttribute(MetaData, "build")
end if
ConvertToVersionString=a__
end function