Function g_intDetectFlashVBS
	dim hasFP
	dim i
	
	hasFP = 0
	On Error Resume Next
	for i = 2 to 6
		If not isnull(CreateObject("ShockwaveFlash.ShockwaveFlash." & i)) Then
			hasFP = 1
			exit for
		End If
	next
	g_intDetectFlashVBS = hasFP
End Function