on error resume next
	If MSDetect = "true" Then
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash"))) Then 
			flashinstalled = false
		Else
			flashinstalled = true
		End If
	End If