rem /*
' $Id: f.vbs,v 1.7 2006/05/08 14:50:14 glen Exp $

on error resume next

If MSDetect = "true" Then
	Dim swControl, swVersion
	swVersion = 0

	For i = 2 to 10
		set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
		if (IsObject(swControl)) then
			swVersion = swControl.GetVariable("$version")
			' "WIN 8,0,22,0"
		End If
	Next

	If swVersion > 0 then
		Dim swVersionA
		swVersionA = Split(Split(swVersion, " ")(1), ",")
		flashy = swVersionA(0) + (swVersionA(2) / 100)
	End if

End If

rem */