find brugers styresystem

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

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

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...

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???

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

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

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.

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

Helt ærligt, det koster ;)

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

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

Hvor ser du OS henne jeg for kun

Du benytter Unknown

platform

velket OS er Unknown

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

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

hvad for du når du bruger koden:

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

winNT

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

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

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

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

det virker da fint...

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

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

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

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

Unknown

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

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>

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

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

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

<%
  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%>

hvor mange point vil du have for det???

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%>

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

takker...

det er bare ok :)