on error resume next
	If ScriptEngineMajorVersion >= 2 Then
		If IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")) Then
			flashversion = 6
		Elseif IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.7")) Then
			flashversion = 7
		Elseif IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.8")) Then
			flashversion = 8
		Elseif IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.9")) Then
			flashversion = 9
		Elseif IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")) Then
			flashversion = 5
		Elseif IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")) Then
			flashversion = 4
		Elseif IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")) Then
			flashversion = 3
		End If		
			flashinstalled = 2
	Else
		flashversion = ""
		flashinstalled = 0
	End If