Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Active Users Mod, Operating System Detection		  New Topic
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 2

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 02 August 2015 :  19:54:50  Show Profile
If MS has issued yet another version for 8.1, just delete that from the function; change those lines to say this:


	ElseIf InStr(ua, "NT 10.0") Then
		strSystem = "Windows 10"
	ElseIf InStr(ua, "NT 6.3") Or InStr(ua, "NT 6.4") Then
		strSystem = "Windows 8.1"
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 02 August 2015 :  20:16:07  Show Profile
Determine your own UserAgent string. Save this as "servervariables.asp" on your forum, then run it.


<%
Response.Write	"<html>" & vbNewLine & _
	"	<head>" & vbNewLine & _
	"		<title>Server Variables</title>" & vbNewLine & _
	"	</head>" & vbNewLine & _
	"	<body>" & vbNewLine & _
	"		<table align=""center"" width=""100%"" bgColor=""transparent"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine & _
	"			<tr>" & vbNewLine & _
	"				<td align=""center"" width=""100%"">" & vbNewLine & _
	"					<table align=""center"" width=""100%"" bgColor=""black"" border=""1"" cellpadding=""4"" cellspacing=""0"">" & vbNewLine & _
	"						<tr>" & vbNewLine & _
	"							<td align=""center"" width=""100"" bgColor=""lightblue"">" & vbNewLine & _
	"								<font family=""arial unicode ms"" size=""6"" color=""navy""><b>Variable</b></font>" & vbNewLine & _
	"							</td>" & vbNewLine & _
	"							<td align=""center"" width=""100% - 100"" bgColor=""lightblue"">" & vbNewLine & _
	"								<font family=""arial unicode ms"" size=""6"" color=""navy""><b>Value</b></font>" & vbNewLine & _
	"							</td>" & vbNewLine & _
	"						</tr>" & vbNewLine
intI = 0
For Each X in Request.ServerVariables
	If intI = 0 Then
		CColor = "white" : FColor = "maroon"
	Else
		CColor = "lightgrey" : FColor = "darkgreen"
	End If
	Response.Write	"						<tr bgColor=""" & CColor & """>" & vbNewLine & _
		"							<td align=""left"" width=""100"">" & vbNewLine & _
		"								<font family=""arial unicode ms"" size=""4"" color=""" & FColor & """>" & x & "</font>" & vbNewLine & _
		"							</td>" & vbNewLine & _
		"							<td align=""left"" width=""100% - 100"">" & vbNewLine & _
		"								<font family=""arial unicode ms"" size=""4"" color=""" & FColor & """>" & Request.ServerVariables(x) & "</font>" & vbNewLine & _
		"							</td>" & vbNewLine & _
		"						</tr>" & vbNewLine
	intI = 1 - intI
Next
Response.Write	"					</table>" & vbNewLine & _
	"				</td>" & vbNewLine & _
	"			</tr>" & vbNewLine & _
	"		</table>" & vbNewLine & _
	"	</body>" & vbNewLine & _
	"</html>"
%>
Edited by - Carefree on 02 August 2015 20:27:04
Go to Top of Page

golfmann
Junior Member

United States
450 Posts
Posted - 03 August 2015 :  00:23:38  Show Profile  Visit golfmann's Homepage
Yea, I tried 10.0 (which I read that they were changing to with the new "final" release instead of 8.4 in the pre releases... but nothin' lol

I guess something will happen some day. I'm tired of fooling with it...
Edited by - golfmann on 03 August 2015 01:34:14
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 03 August 2015 :  05:36:47  Show Profile
Windows version 10.0.10240 reports NT 10.0 on my side. What user agent string is reported when you run the servervariables.asp file?
Go to Top of Page

golfmann
Junior Member

United States
450 Posts
Posted - 03 August 2015 :  16:50:33  Show Profile  Visit golfmann's Homepage
here's what I get:

emailed...

(I got nervous about all that info)
Edited by - golfmann on 03 August 2015 17:11:10
Go to Top of Page

golfmann
Junior Member

United States
450 Posts
Posted - 03 August 2015 :  17:01:48  Show Profile  Visit golfmann's Homepage
OS Name Microsoft Windows 10 Pro
Version 10.0.10240 Build 10240

I tried 10.0.10240 as well but it still returned 8.1...
(that's about when I said I'd had enough) :)

at least I think in entered it right. I'll try again.. nothing to lose
Go to Top of Page

golfmann
Junior Member

United States
450 Posts
Posted - 03 August 2015 :  17:07:16  Show Profile  Visit golfmann's Homepage
nope... still 8.1
I tried NT 10.0.10240, plain 10.0.10240 (no NT), even ver and build 10.0.10240!

enough of this! lol
Go to Top of Page

golfmann
Junior Member

United States
450 Posts
Posted - 04 August 2015 :  00:28:01  Show Profile  Visit golfmann's Homepage
well I finally wrestled the @#%#& thing to work using this...

ElseIf InStr(ua, "Windows NT10.0.10240") Or InStr(ua, "Windows 10 Pro") Or InStr(ua, "Windows 10") Then

My main problem I think was not having "Windows" in front of the NT which the others don't have.
THAT and some changing to my browser User agent string

I'm leaving it alone for awhile :)

Thanks for your help. It was this browser string all the time I think.
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 04 August 2015 :  02:56:51  Show Profile
The info you sent me was from a W10 OS? It seems to be from 8.1 OS. By the way, you only need to post the results of the single line down at the bottom: HTTP_USER_AGENT. Rest of it doesn't affect this particular operation.
Go to Top of Page

golfmann
Junior Member

United States
450 Posts
Posted - 04 August 2015 :  10:53:26  Show Profile  Visit golfmann's Homepage
quote:
The info you sent me was from a W10 OS? It seems to be from 8.1 OS.
yea...screwy, huh lol
Firefox returned 4, as did chrome and edge...
The other was so far off I couldn't figure what the heck, so I sent it all lol

anyway, I have it fooled or fixed depending on how you want to look at it.
Edited by - golfmann on 04 August 2015 10:56:20
Go to Top of Page

philsbbs
Junior Member

United Kingdom
397 Posts
Posted - 06 August 2015 :  04:52:33  Show Profile
I queried the user_agent_string with Microsoft during the Windows 10 testing and they made some design changes on purpose.
Phil
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Previous Page
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.24 seconds. Powered By: Snitz Forums 2000 Version 3.4.07