Function getSWVersionIE()
	On Error Resume Next
	Dim objSW
	Dim strVersion
	Set objSW = CreateObject("SWCtl.SWCtl")
	If IsObject(objSW) Then
		strVersion = objSW.ShockwaveVersion("")
	End If
	Set objSW = Nothing
	getSWVersionIE = strVersion
End Function

Function getFlashVerIE()
	On Error Resume Next
	Dim objSWF
	Dim strVersion
	Dim intCount
	For intCount = 10 To 3 Step -1
		Set objSWF = CreateObject("ShockwaveFlash.ShockwaveFlash." & intCount)
		If IsObject(objSWF) Then
			strVersion = intCount
			Exit For
		End If
	Next
	getFlashVerIE = strVersion
End Function