Dim iQT
Dim iiWMP

On Error Resume Next
iQT = (NOT IsNull(CreateObject("QuickTime.QuickTime.1")))
iWMP = (NOT IsNull(CreateObject("MediaPlayer.MediaPlayer.1")))
On Error goto 0

If (iWMP) Then
	haveWMP = true
ElseIf (iQT) Then
	haveQT = true
End If