Détecter la version de Windows (XP, Vista, 7, 8, 8.1, 10)

'########################################################
' Credits 3DotDev from http://3dotdevcoder.blogspot.fr/
'########################################################
    Public Class OS

        ''' <summary>
        ''' Renvoie la version du système d'exploitation (Windows Vista, Windows 7, Windows 8, Windows 8.1, 10
        ''' </summary>
        ''' <returns>Valeur de type String</returns>
        Public Shared Function GetVersion() As String
            Dim oSVersion As OperatingSystem = Environment.OSVersion
            Select Case oSVersion.Platform.ToString
                Case "Win32Windows"
                    Select Case oSVersion.Version.Minor
                        Case 0
                            Return "Windows 95"
                        Case 10
                            If (oSVersion.Version.Revision.ToString = "2222A") Then
                                Return "Windows 98 Second Edition"
                            End If
                            Return "Windows 98"
                        Case 90
                            Return "Windows Me"
                    End Select
                    Exit Select
                Case "Win32NT"
                    Select Case oSVersion.Version.Major
                        Case 3
                            Return "Windows NT 3.51"
                        Case 4
                            Return "Windows NT 4.0"
                        Case 5
                            Select Case oSVersion.Version.Minor
                                Case 0
                                    Return "Windows 2000"
                                Case 1
                                    Return "Windows XP"
                                Case 2
                                    If My.Computer.Info.OSFullName.Contains("R2") Then
                                        Return "Windows Server 2003 R2"
                                    Else
                                        Return "Windows Server 2003"
                                    End If
                            End Select
                            Exit Select
                        Case 6
                            Select Case oSVersion.Version.Minor
                                Case 0
                                    If My.Computer.Info.OSFullName.Contains("Serv") Then
                                        Return "Windows Server 2008"
                                    ElseIf My.Computer.Info.OSFullName.Contains("Vista") Then
                                        Return "Windows Vista"
                                    ElseIf My.Computer.Info.OSFullName.Contains("Embedded") Then
                                        Return "Windows Embedded"
                                    End If
                                Case 1
                                    If My.Computer.Info.OSFullName.Contains("R2") Then
                                        Return "Windows Server 2008 R2"
                                    ElseIf My.Computer.Info.OSFullName.Contains("7") Then
                                        Return "Windows 7"
                                    ElseIf My.Computer.Info.OSFullName.Contains("Embedded") Then
                                        Return "Windows Embedded"
                                    End If
                                Case 2
                                    If My.Computer.Info.OSFullName.Contains("Serv") Then
                                        Return "Windows Server 2012"
                                    ElseIf My.Computer.Info.OSFullName.Contains("8") Then
                                        Return "Windows 8"
                                    ElseIf My.Computer.Info.OSFullName.Contains("Embedded") Then
                                        Return "Windows Embedded"
                                    ElseIf My.Computer.Info.OSFullName.Contains("10") Then
                                        Return "Windows 10"
                                    End If
                                Case 3
                                    If My.Computer.Info.OSFullName.Contains("Serv") Then
                                        Return "Windows Server 2012 R2"
                                    ElseIf My.Computer.Info.OSFullName.Contains("8.1") Then
                                        Return "Windows 8.1"
                                    ElseIf My.Computer.Info.OSFullName.Contains("Embedded") Then
                                        Return "Windows Embedded"
                                    ElseIf My.Computer.Info.OSFullName.Contains("10") Then
                                        Return "Windows 10"
                                    End If
                                Case 4
                                    If My.Computer.Info.OSFullName.Contains("10") Then
                                        Return "Windows 10"
                                    ElseIf My.Computer.Info.OSFullName.Contains("Embedded") Then
                                        Return "Windows Embedded"
                                    End If
                            End Select
                        Case 10
                            If My.Computer.Info.OSFullName.Contains("10") Then
                                Return "Windows 10"
                            ElseIf My.Computer.Info.OSFullName.Contains("Embedded") Then
                                Return "Windows Embedded"
                            End If
                            Exit Select
                    End Select
                    Exit Select
            End Select
            Return "Système d'exploitation inconnu !"
        End Function

        Public Shared Function GetServicePack() As String
            Dim OSservicePack As String = Environment.OSVersion.ServicePack
            If OSservicePack.Contains("Service Pack ") Then
                Return OSservicePack.Replace("Service Pack ", "SP")
            End If
            Return "SP0"
        End Function

        Public Shared Function OSIs64bit() As Boolean
            Try
                If (Environment.GetEnvironmentVariable("ProgramFiles(x86)") <> "") Then
                    Return True
                End If
            Catch ex As Exception
            End Try
            Return False
        End Function

        Public Shared Function GetOSArch() As String
            If OSIs64bit() Then
                Return "x64 Bits"
            End If
            Return "x32 Bits"
        End Function

    End Class

'############################# Comment l'utiliser ##############################

Dim OS As String = OS.GetVersion
If OS = "Windows 8.1" Then
    MsgBox(Os & " ne prends pas en charge cette application ! Compatible Windows 8 uniquement.")
End If

'##############################################################################