' VB Script Document
option explicit

on error resume next

If vbScript = 1 Then
  flashPlugin = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5"))
End If