Function IsMsXmlInstalled()
   Dim objXml
   On Error Resume Next
   Set objXml = Nothing
   If ArePlugInsAllowed() Then
      Set objXml = CreateObject("Msxml2.DOMDocument.3.0")
   End If
   IsMsXmlInstalled = (Not objXml Is Nothing)
End Function

Function ArePlugInsAllowed()
  Dim bResult
  On Error Resume Next
  bResult = False
  If Not bResult Then
    bResult = IsObject(CreateObject("MSXML.DOMDocument"))
  End If
  If Not bResult Then
    bResult = IsObject(CreateObject("Msxml2.DOMDocument"))
  End If
  If Not bResult Then
    bResult = IsObject(CreateObject("Msxml2.DOMDocument.3.0"))
  End If
  If Not bResult Then
    bResult = IsObject(CreateObject("Microsoft.ActiveXPlugin"))
  End If
  ArePlugInsAllowed = bResult
End Function

Function GetVersion()
  Dim objScripting
  On Error Resume Next
  If ArePlugInsAllowed() Then
    Set objScripting = CreateObject("OfflineScripting.Control")
    If IsObject(objScripting) Then
      GetVersion = objScripting.GetVersion()
      Set objScripting = Nothing
    Else
      GetVersion = ""
    End If
  Else
    GetVersion = "unknown"
  End If

End Function

Function IsPlayerInstalled_IE()
  Dim strVersion
  strVersion = GetVersion()
  If strVersion = "unknown" Then
  	IsPlayerInstalled_IE = "unknown"
  Else
  	IsPlayerInstalled_IE = (Len(strVersion) > 0) And (strVersion <> "unknown")
  End If
End Function

Function vbScriptEnabled()
   vbScriptEnabled = "true"
End Function