On error resume next
fHasWMP64 = (WMP64.FileName="")  ' WMP64 was create above via OBJECT tag else this returns False.
fHasWMP7 = (WMP7.URL = "")       ' WMP7 was create above via OBJECT tag else this returns False.