function vbsGetFlashVersion

	dim i
	dim flashinstalled
	
	flashinstalled=0
	flashversion=0
	
	on error resume next
	
	For i = 2 to 8
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then

		Else
			flashinstalled = 2
			flashversion = i
		End If
	Next
	
	vbsGetFlashVersion=flashversion
	
end function