Mega Code Archive
Get windows version
<![CDATA[
Imports System.Environment
Public Class Tester
Public Shared Sub Main
Dim os_version As OperatingSystem = OSVersion
With os_version
Select Case .Platform
Case .Platform.Win32Windows
' Win32.
Select Case (.Version.Minor)
Case 0
Console.WriteLine("Windows 95")
Case 10
Console.WriteLine(.Version.Revision.ToString())
Case 90
Console.WriteLine("Windows Me")
End Select
Case .Platform.Win32NT
' WinNT.
Select Case (.Version.Major)
Case 3
Console.WriteLine("Windows NT 3.51")
Case 4
Console.WriteLine("Windows NT 4.0")
Case 5
Select Case (.Version.Minor)
Case 0
Console.WriteLine("Windows 2000")
Case 1
Console.WriteLine("Windows XP")
Case 2
Console.WriteLine("Windows Server 2003")
End Select
Case Else
Console.WriteLine("Unknown")
End Select
Case Else
Console.WriteLine("Unknown")
End Select
End With
End Sub
End Class
Windows XP
]]>