CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

goat4dinner Nybegynder

17. maj 2003 - 00:19 Der er 34 kommentarer og
1 løsning

find brugers styresystem

Jeg har brug for at vide hvilket OS de besøgende bruger.

skal jeg bruge request.ServerVariables ("???")

er jeg helt galt på den, eller hvordan gør jeg det???

Synes godt om

Slettet bruger

17. maj 2003 - 00:20 #1

http://www.aspfree.com/asp/servervariables.asp <-komplet oversigt.

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 00:22 #2

du bliver nødt til at være lidt mere konkret end det... sorry.. jeg har læst den side igennem før jeg oprettede dette spørgsmål... det bør siges jeg ikke er haj til VB

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 00:23 #3

jeg har fået at vide at jeg kan prøve http_UA_OS men jeg ved ikke hvordan jeg sætter koden sammen så jeg får det requestet...

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 00:27 #4

ville SERVER_SOFTWARE virke... da jeg testede det fik jeg Microsoft IIS/5.1 som svar men det kan jo være fordi jeg bruger IIS som lokal server ik???

Synes godt om

Slettet bruger

17. maj 2003 - 00:29 #5

Request servervariables fortæller dig jo om serveren ikke klienten.

Du skal benytte f.eks.:
http://www.w3schools.com/asp/asp_browser.asp

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 00:37 #6

jeg kan ikke se hvad browseren har med styresystemet at gøre...

hvis du ved hvordan en linie vb kode ser ud for at finde brugerens styresystem istedet for links ville det værdsættes mere. ikke fordi jeg ikke kan læse men fordi jeg ikke normalt bruger VB.

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 00:37 #7

jeg ved godt det lyder som om jeg vil maddes... sorry...

Synes godt om

Slettet bruger

17. maj 2003 - 00:44 #8

Helt ærligt, det koster ;)

<html>
<body><%
Set MyBrow=Server.CreateObject("MSWC.BrowserType")
%>
Du benytter <%=MyBrow.platform%>
</body>
</html>

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 00:52 #9

no problem... jeg opretter et spørsmål mere til 200 point du kan få... som tak for hjælpen...

Synes godt om

sjh Nybegynder

17. maj 2003 - 01:05 #10

Hvor ser du OS henne jeg for kun

Du benytter Unknown

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 01:09 #11

platform

Synes godt om

sjh Nybegynder

17. maj 2003 - 01:09 #12

velket OS er Unknown

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 01:11 #13

dont look at me... spørg ikke mig jeg havde bare brug for koden...

Synes godt om

sjh Nybegynder

17. maj 2003 - 01:13 #14

virker det hos dig da?????????

hvad for du når du bruger koden:

.....
Du benytter <%=MyBrow.platform%>
......

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 01:14 #15

winNT

Synes godt om

sjh Nybegynder

17. maj 2003 - 01:16 #16

men så kan jeg fortælle dig at det ikke virker på Windows 98 og Windows 2000

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 01:17 #17

Suspect hvorfor ikke... har du en bedre måde...

Synes godt om

sjh Nybegynder

17. maj 2003 - 01:18 #18

hvad for du her:
http://sjh.lir.dk/eksperten/spm/353542/

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 01:19 #19

jeg sidder på mine forældres windows 98SE og får dette output:
Windows 98

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 01:20 #20

det virker da fint...

Synes godt om

sjh Nybegynder

17. maj 2003 - 01:23 #21

Ja, men hvorfor acceptere du så en kode som ikke virker

.....
Du benytter <%=MyBrow.platform%>
......

Synes godt om

roenving Novice

17. maj 2003 - 01:36 #22

Jeg får da også et korrekt svar -- omend kryptisk hvis man ikke kender M$ og XP ordentligt: Windows NT 5.1

Synes godt om

sjh Nybegynder

17. maj 2003 - 01:42 #23

hvis du mener du for korrekt svar her:
http://sjh.lir.dk/eksperten/spm/353542/

så ja, men jeg bruger ikke ... <%=MyBrow.platform%>... koden

hvad for du så her:
http://sjh.lir.dk/eksperten/spm/353542/test.asp

er koden fra schulze

Synes godt om

roenving Novice

17. maj 2003 - 01:47 #24

Unknown

Synes godt om

sjh Nybegynder

17. maj 2003 - 01:48 #25

ja da kan du bare se, det har ikke noget med velket OS du bruger vel.

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 02:11 #26

hvad skal jeg så bruge istedet for???

hvad skal jeg ændre ved nedenstående???

<html>
<body><%
Set MyBrow=Server.CreateObject("MSWC.BrowserType")
%>
Du benytter <%=MyBrow.platform%>
</body>
</html>

Synes godt om

sjh Nybegynder

17. maj 2003 - 02:13 #27

det ved jeg da ikke jeg bruger ikke den kode til at vise OS...

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 02:16 #28

ok kan du vise mig hvad du bruger istedet for???

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 02:16 #29

jeg giver med glæde nogle point for det...

Synes godt om

sjh Nybegynder

17. maj 2003 - 02:45 #30

<%
Function GetUserOS()
strAgent = Request.Servervariables("HTTP_USER_AGENT")
arrAgent = Split(strAgent, ";")

For i = LBound(arrAgent) To UBound(arrAgent)
strOS = Trim(arrAgent(i))
If Not InStr(1, strOS, "win", vbTextCompare) = 0 Or _
Not InStr(1, strOS, "mac", vbTextCompare) = 0 Then
Exit For
End If
Next

'-- Replace for Mac_PowerPC og Mac_68000 --
strOS = Replace(strOS, "_", " ")

If Right(strOS, 1) = ")" Then
GetUserOS = Left(strOS, Len(strOS) - 1)
Else
GetUserOS = strOS
End If
End Function
%>

<%=GetUserOS%>

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 02:48 #31

hvor mange point vil du have for det???

Synes godt om

sjh Nybegynder

17. maj 2003 - 02:52 #32

Ikke nogle, det var bare fordi den kode du fik af schulze ikke virkede :-)

Har lige lavet lidt om på koden:

<%
Function GetUserOS()
strAgent = Request.Servervariables("HTTP_USER_AGENT")
arrAgent = Split(strAgent, ";")

For i = LBound(arrAgent) To UBound(arrAgent)
strOS = Trim(arrAgent(i))
If Not InStr(1, strOS, "win", vbTextCompare) = 0 Or _
Not InStr(1, strOS, "mac", vbTextCompare) = 0 Then
Exit For
End If
Next

'-- Replace for Mac_PowerPC og Mac_68000 --
strOS = Replace(strOS, "_", " ")
GetUserOS = Replace(strOS, ")", "")
End Function
%>

<%=GetUserOS%>

Synes godt om

sjh Nybegynder

17. maj 2003 - 03:05 #33

How vi skal da også have Linux med :-)

<%
Function GetUserOS()
strAgent = Request.Servervariables("HTTP_USER_AGENT")
arrAgent = Split(strAgent, ";")

For i = LBound(arrAgent) To UBound(arrAgent)
strOS = Trim(arrAgent(i))
If Not InStr(1, strOS, "win", vbTextCompare) = 0 Or _
Not InStr(1, strOS, "mac", vbTextCompare) = 0 Or _
Not InStr(1, strOS, "linux", vbTextCompare) = 0 Then
Exit For
End If
Next

'-- Replace for Mac_PowerPC og Mac_68000 --
strOS = Replace(strOS, "_", " ")
GetUserOS = Replace(strOS, ")", "")
End Function
%>

<%=GetUserOS%>

Her er en som kan det hele med OS og Browser :-)
http://www.ookla.com/examples/data_trapping.txt

Synes godt om

goat4dinner Nybegynder

17. maj 2003 - 03:06 #34

takker...

Synes godt om

sjh Nybegynder

17. maj 2003 - 03:07 #35

det er bare ok :)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	3	25/04/202414:26	28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS