Plugins von IE auslesen

[Thomas]

Hallo,

ich soll für unsere Firma ein kl. webfrontend bzgl. websitestatistik basteln.
Jetzt hab ich nur mehr 1 kl. Problem:
Wie kann ich alle installierten Plugins des IE auslesen?
Bei NS, FF, ... ist es ja kein Problem mit JS, aber der IE kann dies wiedermal nicht.

lg
Thomas

[Maxx]

Hallo Thomas,

Wie kann ich alle installierten Plugins des IE auslesen?

mit javascript geht das nicht. Und auch nicht so wie du dir das vorstellst. Der IE kennt nur ActiveX Controls. Aber mit etwas VB-Script kannst du dir eine Abfrage basteln. Zum Beispiel auf die installierte Flash Version.

<script type="text/vbscript" language="VBScript">
Function check_flashActiveX()
   On Error goto 0
   version = 20

Do While version >= 1
     On Error Resume Next
     Set flObject = CreateObject("ShockwaveFlash.ShockwaveFlash." & version)
     If IsObject(flObject) Then
       alert(version)
       Exit Do
     End If
     version = version - 1
   Loop
End Function
</script>

HTH

Jochen

[Thomas]

Hallo Jochen,

Der IE kennt nur ActiveX Controls. Aber mit etwas VB-Script kannst du »» dir eine Abfrage basteln. Zum Beispiel auf die installierte Flash »» »» Version.

Vielen Dank für die Info, aber wie bekomme ich da nun raus welche Plugins der User installiert hat?
Gibt es da eine Liste mit allen möglichen Plugins, die ich abfragen muß?

lg
Thomas

[Maxx]

Hallo Thomas

Gibt es da eine Liste mit allen möglichen Plugins, die ich abfragen muß?

Meine (vermutlich veraltete Liste) ist:

  
<script type="text/vbscript" language="VBScript">  
  
if(TestActiveX("Adobe.SVGCtl")) Then  
  document.write("SVG Viewer<br>")  
  End If  
  
if(TestActiveX("SWCtl.SWCtl.1"))  Then  
  document.write("Shockwave Director<br>")  
  End If  
  
if(TestActiveX("ShockwaveFlash.ShockwaveFlash.7")) Then  
  document.write("Shockwave Flash<br>")  
  End If  
  
if(TestActiveX("rmocx.RealPlayer G2 Control.1")) Then  
  document.write("RealPlayer<br>")  
  End If  
  
if(TestActiveX("QuickTimeCheckObject.QuickTimeCheck.1")) Then  
  document.write("QuickTime<br>")  
  End If  
  
if(TestActiveX("MediaPlayer.MediaPlayer.1")) Then  
  document.write("Windows Media Player<br>")  
  End If  
  
if(TestActiveX("PDF.PdfCtrl.5")) Then  
  document.write("Acrobat Reader<br>")  
  End If  
  
Function TestActiveX(plugin)  
  On Error Resume Next  
  Set Obj = CreateObject(plugin)  
  
  If IsObject(Obj) Then  
    TestActiveX=1  
  Else  
    TestActiveX=0  
  End If  
  
End Function  

Fütter google doch einfach mit einem der obigen Begriffe. Dann gibt es sicher noch mehr davon.

Viel Spaß

Jochen

[Thomas]

Hallo Jochen,

Meine (vermutlich veraltete Liste) ist:

Super, dies ist schon ein gr. Erfolg für mich.

Fütter google doch einfach mit einem der obigen Begriffe. Dann gibt es sicher noch mehr davon.

Ok, damit kann ich es dann vervollständigen.

lg
Thomas