CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede 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???
Avatar billede Slettet bruger
17. maj 2003 - 00:20 #1
http://www.aspfree.com/asp/servervariables.asp <-komplet oversigt.
Avatar billede 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
Avatar billede 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...
Avatar billede 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???
Avatar billede 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
Avatar billede 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.
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 00:37 #7
jeg ved godt det lyder som om jeg vil maddes... sorry...
Avatar billede 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>
Avatar billede 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...
Avatar billede sjh Nybegynder
17. maj 2003 - 01:05 #10
Hvor ser du OS henne jeg for kun

Du benytter Unknown
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 01:09 #11
platform
Avatar billede sjh Nybegynder
17. maj 2003 - 01:09 #12
velket OS er Unknown
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 01:11 #13
dont look at me... spørg ikke mig jeg havde bare brug for koden...
Avatar billede 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%>
......
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 01:14 #15
winNT
Avatar billede 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
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 01:17 #17
Suspect hvorfor ikke... har du en bedre måde...
Avatar billede sjh Nybegynder
17. maj 2003 - 01:18 #18
hvad for du her:
http://sjh.lir.dk/eksperten/spm/353542/
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 01:19 #19
jeg sidder på mine forældres windows 98SE og får dette output:
Windows 98
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 01:20 #20
det virker da fint...
Avatar billede sjh Nybegynder
17. maj 2003 - 01:23 #21
Ja, men hvorfor acceptere du så en kode som ikke virker

.....
Du benytter <%=MyBrow.platform%>
......
Avatar billede 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
Avatar billede 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
Avatar billede roenving Novice
17. maj 2003 - 01:47 #24
Unknown
Avatar billede sjh Nybegynder
17. maj 2003 - 01:48 #25
ja da kan du bare se, det har ikke noget med velket OS du bruger vel.
Avatar billede 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>
Avatar billede sjh Nybegynder
17. maj 2003 - 02:13 #27
det ved jeg da ikke jeg bruger ikke den kode til at vise OS...
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 02:16 #28
ok kan du vise mig hvad du bruger istedet for???
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 02:16 #29
jeg giver med glæde nogle point for det...
Avatar billede 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%>
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 02:48 #31
hvor mange point vil du have for det???
Avatar billede 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%>
Avatar billede 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
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 03:06 #34
takker...
Avatar billede sjh Nybegynder
17. maj 2003 - 03:07 #35
det er bare ok :)
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
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 -
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic 2 04/12/202320:07 09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic 0 09/10/202309:14 -
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 11:13 Works Suite Af Novicen i Office & Kontorpakker
I dag 11:07 java.util.Scanner Af OBS i Java
I går 20:11 Tabel Af OBS i Java
I går 17:13 Summen af rækkens værdier Af OBS i Java
I går 10:19 Flytte billeder fra "Hentet" (Mappe) til "Billeder" (Mappe) Af Ikke-ekspert i Linux
White papers
Flere white papers »


Premium
Teaser billede
Fire gode grunde til at Trumps toldkrig vil få iPhone-priserne til at falde i Danmark
Læs mere »
Her er planen: Derfor køber Schultz Fujitsus kommune-satsning - flere opkøb kan være på vej
KMD-topchef Thomas Jul advarer mod forhastet exit fra Microsoft: "Der er ikke et realistisk alternativ på nuværende tidspunkt"
Overblik: Får du den rigtige løn? Så meget tjener de danske it-faggrupper om måneden i gennemsnit
Se alle »
Computerworld
Teaser billede
Microsoft advarer Office-brugere: Nu gør du gør klogt i at opgradere til 365
Læs mere »
Test: Apples discount-iPad giver meget for pengene – men du bør vide, hvad det er du går glip af
Trump til verdens største chip-producent: Byg i USA eller betal 100 procent i told på alt
Test: Nu kan du slippe en robot løs for at pudse dine vinduer
Se alle »
CIO
Teaser billede
Danske virksomheder søger væk fra amerikanske tech-giganter: Mange vil skifte til tysk Microsoft-alternativ
Læs mere »
Microsoft hæver priserne på server-licenser: On-premise bliver op til 20 procent dyrere om få måneder
Microsoft bøjer sig for kritik fra brugere: Udskyder nedlukning af server-løsning i sidste øjeblik
Efter exit fra Stark Group: Her er top-CIO Pernille Genesers planer for fremtiden
Se alle »
Job & Karriere
Teaser billede
Den danske it-branche er på vagt: Hvad nu hvis Trump lukker for Microsoft 365 og AWS fra på mandag?
Læs mere »
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Microsoft fyrer de dårligst performende ansatte: Disse jobtitler bliver ramt
Danske it-folk lokkes med store tiltrædelses-bonusser: Nu kan du score mere end 100.000 kroner ved at skrive under på ny jobkontrakt
Se alle »
White paper
Teaser billede
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Læs mere »
Revolutionér kundeoplevelsen med AI og automatisering
Tidsbegrænset kampagne: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner gratis
Udnyt Genesys Cloud CX optimalt og styrk kundeoplevelsen
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »