on error resume next
	If MSDetect = "true" Then
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash"))) Then 
			flashinstalled = 1
		Else
			flashinstalled = 2
		End If
	End If