Function GetBrowserName(s as WebSession.BrowserType) As string
  Select case s
  case WebSession.BrowserType.Android
    Return "Andriod"
  case WebSession.BrowserType.Blackberry
    Return "Blackberry"
  case WebSession.BrowserType.Chrome
    Return "Chrome"
  case WebSession.BrowserType.ChromeOS
    Return "ChromeOS"
  case WebSession.BrowserType.Firefox
    Return "Firefox"
  case WebSession.BrowserType.InternetExplorer
    Return "InternetExplorer"
  case WebSession.BrowserType.Opera
    Return "Opera"
  case WebSession.BrowserType.Safari
    Return "Safari"
  case WebSession.BrowserType.SafariMobile
    Return "SafariMobile"
  case WebSession.BrowserType.Unknown
    Return "Unknown"
  else
    Return "Unkown: "+str(integer(s))
  end Select
  
End Function