I think this may help:
It contains much more than flash... 
<SCRIPT language=VBScript>
<!--
VBXDetect ActX, "ShockWave Flash Plug-in", "ShockwaveFlash.ShockwaveFlash"
VBXDetect ActX, "ShockWave Director Plug-in", "SWCtl.SWCtl.1"
VBXDetect ActX, "ShockWave ActiveX Control Plug-in", "SWCtl.SWCtl.7"
VBXDetect ActX, "Active Shockwave Plug-in", "Macromedia.ActiveShockwave.1"
VBXDetect ActX, "Real Player Plug-in", "RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)"
VBXDetect ActX, "Real Player Plug-in", "rmocx.RealPlayer G2 Control"
VBXDetect ActX, "Real Juke Box", "IERJCtl.IERJCtl.1"
VBXDetect ActX, "Media Player", "MediaPlayer.MediaPlayer.1"
VBXDetect ActX, "Adobe Acrobat Reader Plug-in", "PDF.PdfCtrl.1"
VBXDetect ActX, "MS Agent 1.5", "Agent.Control.1"
VBXDetect ActX, "MS Agent 2.0", "Agent.Control.2"
VBXDetect ActX, "MS Animation Control", "ComCtl2.Animation.1"
VBXDetect ActX, "MS DirectAnimation Control", "DirectAnimation.DirectAnimationIntegratedMediaControl.1"
VBXDetect ActX, "Microsoft VRML 2.0 Viewer", "MSVRML2C.VRMLBrowserCtl.1"
document.write "<BR><BR><textarea cols=60 rows=20 name=""ActiveX"">ActiveX installed:==>"
document.write ActX
document.write """</textarea>"
Function VBXDetect(byRef str, byVal name, byVal activeXname)
on error resume next
If ScriptEngineMajorVersion >= 2 then
VBXDetect = False
VBXDetect = IsObject(CreateObject(activeXname))
If (err) then
VBXDetect = False
End If
Else
VBXDetect = False
End if
If VBXDetect = True Then
If (str <> "") Then
str = str & ",--> "
End If
str = str & name & " [" & activeXname & "]"
End If
Return str
End Function
-->
</SCRIPT>
IF you just want to check if the user has flash or not... just add a little script like.. If 'activeXname' is Flash installed.. then go to page ....., or something like this...., but the above is only used if you want to see the PlugIn user has....
hint: useful if you added this code to the contact us form.
Edited by zMaestro