on error resume next
If MSDetect = "true" Then
	dim scanMSDetect
	scanMSDetect = 0
	For scanMSDetect = 2 to 9
	  dim objName
	  objName = "ShockwaveFlash.ShockwaveFlash." & scanMSDetect
	  'msgbox(objName)
		If Not(IsObject(CreateObject(objName))) Then

		Else
			flashinstalled = "yes"
			flashversion = scanMSDetect
		End If
	Next
End If
If flashinstalled = "unknown" Then
	flashinstalled = "no"
End If
on error goto 0