mario.deghetto

#17 Identificare il sistema operativo

Ecco una semplice funzione per identificare il sistema operativo sul quale viene eseguita l’applicazione:

   Public Function GetOSVersion() As String
      Select Case Environment.OSVersion.Platform
         Case PlatformID.Win32S
            Return "Win 3.1"
         Case PlatformID.Win32Windows
            Select Case Environment.OSVersion.Version.Minor
               Case 0
                  Return "Win 95"
               Case 10
                  Return "Win 98"
               Case 90
                  Return "Win ME"
               Case Else
                  Return "Sconosciuto"
            End Select
         Case PlatformID.Win32NT
            Select Case Environment.OSVersion.Version.Major
               Case 3
                  Return "NT 3.51"
               Case 4
                  Return "NT 4.0"
               Case 5
                  Select Case Environment.OSVersion.Version.Minor
                     Case 0
                        Return "Win 2000"
                     Case 1
                        Return "Win XP"
                     Case 2
                        Return "Win 2003"
                  End Select
               Case 6
                  Select Case Environment.OSVersion.Version.Minor
                     Case 0
                        Return "Win Vista"
                     Case Else
                        Return "Sconosciuto"
                  End Select
               Case Else
                  Return "Sconosciuto"
            End Select
               Case PlatformID.WinCE
                  Return "Win CE"
            End Select
   End Function

Print | posted on sabato 17 ottobre 2009 5.01 |