On Error Resume Next
Dim WmObject, isWmObject, WmFlg, ChkFlg
Set WmObject = CreateObject("MediaPlayer.MediaPlayer.1")
isWmObject = IsObject(WmObject)

' MediaPlayerのチェック
If (isWmObject) Then
Else
	document.write("<div class=caution>このムービーをご覧いただくには、<br>WindowsMediaPlayerが必要です。</div>")
End If