//test le plugin Flash

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