Dim intInstalled
Dim intVersion
Dim strPluginName
on error resume next
If ie = True And win = True Then
	''''''''''''''''''''''''''
	''''''''SVG Viewer''''''''
	''''''''''''''''''''''''''
	strPluginName = "SVG Viewer"
	intInstalled = 0
	intVersion = 0
	If Not(IsObject(CreateObject("Adobe.SVGCtl"))) Then
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>N/A</td>")
		document.writeln("</tr>")
	Else
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>Installed</td>")
		document.writeln("</tr>")
	End If
	''''''''''''''''''''''''''''''''''
	''''''''Shockwave Director''''''''
	''''''''''''''''''''''''''''''''''	
	strPluginName = "Shockwave Director"
	intInstalled = 0
	intVersion = 0
	For i = 1 to 20
		If Not(IsObject(CreateObject("SWCtl.SWCtl." & i))) Then
		Else
			intInstalled = 2
			intVersion = i
		End If
	Next
	If intInstalled = 0 Then
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.1"))) Then
		Else
			intInstalled = 2
			intVersion = 10
		End If

	End If 
	If intInstalled = 2 Then
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>Installed</td>")
		document.writeln("</tr>")
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & " Version</td><td>" & intVersion & "</td>")
		document.writeln("</tr>")
	Else
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>N/A</td>")
		document.writeln("</tr>")
	End If
	'''''''''''''''''''''''''''''''
	''''''''Shockwave Flash''''''''
	'''''''''''''''''''''''''''''''	
	strPluginName = "Shockwave Flash"
	intInstalled = 0
	intVersion = 0
	For i = 2 to 20
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
		Else
			intInstalled = 2
			intVersion = i
		End If
	Next
	If intInstalled = 2 Then
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>Installed</td>")
		document.writeln("</tr>")
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & " Version</td><td>" & intVersion & "</td>")
		document.writeln("</tr>")
	Else
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>N/A</td>")
		document.writeln("</tr>")
	End If
	'''''''''''''''''''''''''''
	''''''''Real Player''''''''
	'''''''''''''''''''''''''''	
	strPluginName = "Real Player"
	intInstalled = 0
	intVersion = 0
	For i = 1 to 20
		If Not(IsObject(CreateObject("rmocx.RealPlayer G2 Control." & i))) Then
		Else
			intInstalled = 2
			intVersion = i
		End If
	Next
	If intInstalled = 2 Then
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>Installed</td>")
		document.writeln("</tr>")
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & " Version</td><td>" & intVersion & "</td>")
		document.writeln("</tr>")
	Else
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>N/A</td>")
		document.writeln("</tr>")
	End If
	''''''''''''''''''''''''''
	''''''''Quick Time''''''''
	''''''''''''''''''''''''''	
	strPluginName = "Quick Time"
	intInstalled = 0
	intVersion = 0
	For i = 1 to 20
		If Not(IsObject(CreateObject("QuickTime.QuickTime." & i))) Then
		Else
			intInstalled = 2
			intVersion = i
		End If
	Next
	If intInstalled = 0 Then
		If Not(IsObject(CreateObject("QuickTimeCheckObject.QuickTimeCheck.1"))) Then
		Else
			intInstalled = 2
			intVersion = 5
		End If
	End If
	If intInstalled = 2 Then
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>Installed</td>")
		document.writeln("</tr>")
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & " Version</td><td>" & intVersion & "</td>")
		document.writeln("</tr>")
	Else
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>N/A</td>")
		document.writeln("</tr>")
	End If
	''''''''''''''''''''''''''''''''''''
	''''''''Windows Media Player''''''''
	''''''''''''''''''''''''''''''''''''	
	strPluginName = "Windows Media Player"
	intInstalled = 0
	intVersion = 0
	If Not(IsObject(CreateObject("MediaPlayer.MediaPlayer.1"))) Then
	Else
		intInstalled = 2
		intVersion = i
	End If
	If intInstalled = 2 Then
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>Installed</td>")
		document.writeln("</tr>")
	Else
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>N/A</td>")
		document.writeln("</tr>")
	End If
	''''''''''''''''''''''''''''''
	''''''''Acrobat Reader''''''''
	''''''''''''''''''''''''''''''	
	strPluginName = "Acrobat Reader"
	intInstalled = 0
	intVersion = 0
	For i = 1 to 20
		If Not(IsObject(CreateObject("PDF.PdfCtrl." & i))) Then
		Else
			intInstalled = 2
			intVersion = i
		End If
	Next
	If intInstall = 0 Then
		For i = 1 to 20
		If Not(IsObject(CreateObject("acroPDF.PDF." & i))) Then
		Else
			intInstalled = 2
			intVersion = i + 6
		End If
	Next
	End If
	If intInstalled = 2 Then
		If intVersion = 1 Then
			intVersion = 3
		End If
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>Installed</td>")
		document.writeln("</tr>")
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & " Version</td><td>" & intVersion & "</td>")
		document.writeln("</tr>")
	Else
		document.writeln("<tr class='fontregular' bgColor='#ffffff'>")
		document.writeln("<td>" & strPluginName & "</td><td>N/A</td>")
		document.writeln("</tr>")
	End If
End If