Function flashVersionVBS()
on error resume next
	Dim i, flashinstalled, flashversion, flash(1)
	For i = 2 to 5
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then

		Else
			flash(0) = 2
			flash(1) = i
		End If
	Next

	If flash(0) = 0 Then
		flash(0) = 1
	End If
	flashVersionVBS = flash
End Function