Reply to thread

Message

<blockquote data-quote="JuggaloBrotha" data-source="post: 4695" data-attributes="member: 13">well here's a function that'll return what type of windows you have (win3.11, 95,98,98se,me,nt4,2000,xp,2003)&nbsp;&nbsp; but not which type of xp (home, pro, corp pro)&nbsp;&nbsp; anywho here's what i got:[code]Friend Function GetOSVersion() As String&nbsp; &nbsp; &nbsp; &nbsp; Dim strVersion As String&nbsp; &nbsp; &nbsp; &nbsp; Select Case Environment.OSVersion.Platform&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case PlatformID.Win32S&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Windows 3.1&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case PlatformID.Win32Windows&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Select Case Environment.OSVersion.Version.Minor&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Windows 95&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 10&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Environment.OSVersion.Version.Revision.ToString() = &quot;2222A&quot; Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Windows 98 Second Edition&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Windows 98&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 90&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Windows ME&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Unknown&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case PlatformID.Win32NT&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Select Case Environment.OSVersion.Version.Major&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Windows NT 3.51&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 4&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Windows NT 4.0&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 5&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Select Case Environment.OSVersion.Version.Minor&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Windows 2000&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Windows XP&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Windows 2003&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Unknown&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case PlatformID.WinCE&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strVersion = &quot;Windows CE&quot;&nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; Return strVersion&nbsp; &nbsp; End Function[/code]</blockquote>

[QUOTE="JuggaloBrotha, post: 4695, member: 13"] well here's a function that'll return what type of windows you have (win3.11, 95,98,98se,me,nt4,2000,xp,2003) but not which type of xp (home, pro, corp pro) anywho here's what i got: [code] Friend Function GetOSVersion() As String Dim strVersion As String Select Case Environment.OSVersion.Platform Case PlatformID.Win32S strVersion = "Windows 3.1" Case PlatformID.Win32Windows Select Case Environment.OSVersion.Version.Minor Case 0 strVersion = "Windows 95" Case 10 If Environment.OSVersion.Version.Revision.ToString() = "2222A" Then strVersion = "Windows 98 Second Edition" Else strVersion = "Windows 98" End If Case 90 strVersion = "Windows ME" Case Else strVersion = "Unknown" End Select Case PlatformID.Win32NT Select Case Environment.OSVersion.Version.Major Case 3 strVersion = "Windows NT 3.51" Case 4 strVersion = "Windows NT 4.0" Case 5 Select Case Environment.OSVersion.Version.Minor Case 0 strVersion = "Windows 2000" Case 1 strVersion = "Windows XP" Case 2 strVersion = "Windows 2003" End Select Case Else strVersion = "Unknown" End Select Case PlatformID.WinCE strVersion = "Windows CE" End Select Return strVersion End Function [/code] [/QUOTE]

Verification