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