VB.Net Tutorial/Windows/Windows Version

Материал из VB Эксперт
Перейти к: навигация, поиск

Get 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