// Ce script fonctionne en duo avec le script TestFlash.js
// Ce qui implique que vous devez conservez les deux fichiers
// et les inclure tous les deux dans vos page html comme suit
//
// <script type="text/vbscript"   src="TestFlash.vbs"></script>
// <script type="text/javascript" src="TestFlash.js" ></script>
//

Function TestFlashVB ()

on error resume next

version = -1
 
For i = 2 to 25
	If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then

	Else
		installe = 2
		version = i
	End If
Next
 
If installe = 0 Then
	installe = 1
	version = -1
End If 

// MsgBox version,, "test version par VB"

TestFlashVB = version

End Function