---
title: "getOS & getBrowser"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38232-getos-getbrowser"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Pace"
published: "2001-12-29T18:07:00.000Z"
updated: "2001-12-29T18:07:00.000Z"
replies: 0
views: 1075
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/38232-getos-getbrowser"
---

# getOS & getBrowser

## #1 — Pace, 2001-12-29T18:07Z

**getOS & getBrowser** \- Funktioner som visar vilket operativsystem och vilken webbläsare användaren kör med. Konfat för OS upp till XP och webbläsare MSIE6/NS6.

Scriptet diskuteras [här](http://cgi.webforum.nu/wf/Forum11/HTML/008053.html#0)!

**Användning**
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
Response.write getOS & " - " & getBrowser

**Kod**

```
[red]' Hämta användarens webbläsare.[/red]
Function getBrowser()
	Dim Browser, ua
	
	ua = Request.ServerVariables("HTTP_USER_AGENT")
	
	If Instr(ua, "MSIE") Then
		If Instr(ua, "MSIE 6.") Then
			Browser = "Microsoft Internet Explorer 6.x"
		ElseIf Instr(ua, "MSIE 5.") Then
			Browser = "Microsoft Internet Explorer 5.x"
		ElseIf Instr(ua, "MSIE 4.") Then
			Browser = "Microsoft Internet Explorer 4.x"
		ElseIf Instr(ua, "MSIE 3.") Then
			Browser = "Microsoft Internet Explorer 3.x"
			If Instr(ua, "MSIE 3.02") Then
				Browser = "Microsoft Internet Explorer 3.02"
			End If
		Else
			Browser = "Microsoft Internet Explorer"
		End If
	ElseIf Instr(ua, "Mozilla") and Instr(ua, "compatible") = 0 Then
		If Instr(ua, "Netscape6") Then
			Browser = "Netscape Navigator 6.x"
		ElseIf Instr(ua, "Mozilla/4") Then
			Browser = "Netscape Navigator 4.x"
		ElseIf Instr(ua, "Mozilla/3") Then
			Browser = "Netscape Navigator 3.x"
		Else
			Browser = "Netscape Navigator"
		End If
	ElseIf Instr(ua, "Opera") Then
		Browser = "Opera"
	End If
	
	getBrowser = Browser
End Function

'Hämta användarens operativsystem.[/red]
Function getOS()
	Dim System, ua, os
	
	ua = Request.ServerVariables("HTTP_USER_AGENT")
	os = Request.ServerVariables("HTTP_UA_OS")
	
	If Instr(ua, "Windows 95") Or Instr(ua, "Win95") Then
		System = "Windows 95"
	ElseIf Instr(ua, "Win 9x 4.90") Then
		System = "Windows ME"
	ElseIf Instr(ua, "Windows 98") Or Instr(ua, "Win98") Then
		System = "Windows 98"
	ElseIf Instr(ua, "Windows 3.1") Or Instr(os, "Win16") Then
		System = "Windows 3.x/Windows NT 3.x"
	ElseIf Instr(ua, "NT 5.1") Or Instr(oa, "NT 5.1") Then
		System = "Windows XP"
	ElseIf Instr(ua, "NT 5") Or Instr(oa, "NT 5") Then
		System = "Windows 2000"
	ElseIf Instr(ua, "NT") Or Instr(oa, "NT") Then
		System = "Windows NT"
	ElseIf Instr(ua, "Mac") Then
		System = "Mac"
		If Instr(ua, "PowerPC") Or Instr(ua, "PPC") Then
			System = "Mac PPC"
		ElseIf Instr(ua, "68000") Or Instr(ua, "68K") Then
			System = "Mac 68K"
		End If
	ElseIf Instr(ua, "Linux") Then
		System = "Linux"
	ElseIf Instr(ua, "X11") Then
		System = "UNIX"
	End If
	
	getOS = System
End Function
```

Permalänk: https://www.webforum.nu/p/38232

---

Tråden på webben: https://www.webforum.nu/amne/asp/38232-getos-getbrowser