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