Dim PluginCount, strPlugIn
  
Function PluginDetect(name, activeXname)
  on error resume next
  PluginDetect = False
  PluginDetect = IsObject(CreateObject(activeXname))
  If (err) then
    PluginDetect = False
  End If

  if PluginDetect = True then
    strPlugIn = name + activeXname
    PluginCount = PluginCount + 1
  End If
End Function

PluginDetect "ShockWave Flash Plug-in - ", "ShockwaveFlash.ShockwaveFlash"
PluginDetect "ShockWave Director Plug-in - ", "SWCtl.SWCtl"
PluginDetect "ShockWave ActiveX Control Plug-in - ", "SWCtl.SWCtl.7"
PluginDetect "Active Shockwave Plug-in - ", "Macromedia.ActiveShockwave.1"
PluginDetect "Real Player Plug-in - ", "RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)"
PluginDetect "Real Player Plug-in - ", "rmocx.RealPlayer G2 Control"
PluginDetect "Real Juke Box - ", "IERJCtl.IERJCtl.1"
PluginDetect "Media Player - ", "MediaPlayer.MediaPlayer.1"
PluginDetect "Adobe Acrobat Reader Plug-in - ", "PDF.PdfCtrl.1"
PluginDetect "MS Agent 1.5 - ", "Agent.Control.1"
PluginDetect "MS Agent 2.0 - ", "Agent.Control.2"
PluginDetect "MS Animation Control - ", "ComCtl2.Animation.1"
PluginDetect "MS DirectAnimation Control - ", "DirectAnimation.DirectAnimationIntegratedMediaControl.1"
PluginDetect "Microsoft VRML 2.0 Viewer - ", "MSVRML2C.VRMLBrowserCtl.1"

call setPlugin(strPlugIn,PluginCount)