' Erweiterungen zu plugins.js:  VBScript-Funktionen speziell (Win/IE)
' die Notation innerhalb JavaScript von zB.
'	document.writeln('<script language="VBScript">');
'	document.writeln('on error resume next');
'	document.writeln('result = not IsNull(CreateObject(ClassID))');
'	document.writeln('</script>');
' funktioniert so !!! NICHT !!!, deshalb VBScript-Funktionen 

function detectIE(ClassID, name)
  ' Prüft die Existenz eines Plugin / AktiveX-Controls
  dim result
  detectIE = ""
  result = false
  on error resume next
  result = not IsNull(CreateObject(ClassID))
  if result = true then
    detectIE = name + ","
  end if
end function

function flashVersionIE()
  ' Ermittelt die höchste Flashversion
  dim n, v, result
  v = 0
  for n=1 to 20 step 1
    result = false
    on error resume next
    result = not IsNull(CreateObject( "ShockwaveFlash.ShockwaveFlash." + FormatNumber(n,0) ))
    if result = true and n > v then
      v = n
    end if  
  next
  flashVersionIE = FormatNumber(v, 0)  
end function