detectableWithVB = False
	  If ScriptEngineMajorVersion >= 2 then
	    detectableWithVB = True
	  End If

	  Function detectActiveXControl(activeXControlName)
	    on error resume next
	    detectActiveXControl = False
	    If detectableWithVB Then
	      detectActiveXControl = IsObject(CreateObject(activeXControlName))
	    End If
	  End Function

	  Function detectQuickTimeActiveXControl()
	    on error resume next
	    detectQuickTimeActiveXControl = False
	    If detectableWithVB Then
	      detectQuickTimeActiveXControl = False
	      hasQuickTimeChecker = False
	      Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
	      If IsObject(hasQuickTimeChecker) Then
			i_quicktime = hasQuickTimeChecker.IsQuickTimeAvailable(0)
			v_quicktime = hex(hasQuickTimeChecker.QuickTimeVersion)
	        If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then
	          detectQuickTimeActiveXControl = True
	        End If
	      End If
	    End If
	    End Function

		Function detectWindowsMediaPlayer()
			on error resume next
			Set tmp = CreateObject("MediaPlayer.MediaPlayer.1")
				If IsObject(tmp) Then
					i_mediaplayer = True
					v_mediaplayer = tmp.versionInfo
						if not v_mediaplayer then
							set tmp7 = CreateObject("WMPlayer.OCX.7")
								if IsObject(tmp7) then
									i_mediaplayer = true
									v_mediaplayer = tmp7.versionInfo
								End If
						End If
			End If
		End Function