on error resume next
set tmp = CreateObject("MediaPlayer.MediaPlayer.1")
if IsObject(tmp) then
i_mediaplayer = true
v_mediaplayer = tmp.versionInfo
a_mediaplayer = tmp.ClientID
end if
if not v_mediaplayer then
set tmp7 = CreateObject("WMPlayer.OCX.7")
if IsObject(tmp7) then
i_mediaplayer = true
v_mediaplayer = tmp7.versionInfo
a_mediaplayer = tmp.ClientID
end if
end if