Get windows version : Windows Version « Windows « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows
3. Windows Version

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