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