Public Function GetVersion() As String
        Dim So_Info As OperatingSystem
        So_Info = OSVersion
        With So_Info
            Select Case .Platform
                Case .Platform.Win32Windows
                    Select Case (.Version.Minor)
                        Case 0
                            GetVersion = "Windows 95"
                        Case 10
                            If .Version.Revision.ToString() = "2222A" Then
                                GetVersion = "Windows 98 Second Edition"
                            Else
                                GetVersion = "Windows 98"
                            End If
                        Case 90
                            GetVersion = "Windows Me"
                    End Select
                Case .Platform.Win32NT
                    Select Case (.Version.Major)


                        Case 3
                            GetVersion = "Windows NT 3.51"
                        Case 4
                            GetVersion = "Windows NT 4.0"
                        Case 5
                            If .Version.Minor = 0 Then
                                GetVersion = "Windows 2000"
                            ElseIf .Version.Minor = 1 Then
                                GetVersion = "Windows XP"
                            ElseIf .Version.Minor = 2 Then
                                GetVersion = "Windows 2003"
                            End If
                        Case 6
                            GetVersion = "Windows Longhorn"
                    End Select
                Case Else
                    GetVersion = "S.O desconegut"
            End Select
        End With
    End Function

Anar a Pàgina Principal