#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 Else
               Return "Sconosciuto"
         End Select
      Case PlatformID.WinCE
         Return "Win CE"
   End Select
End Function

Pubblicato il 30 gennaio 2008 su Tips. Aggiungi ai preferiti il collegamento . 4 commenti.

  1. Modifica da fare per identificare Windows Vista: nel ramo Case seguente

    > Case PlatformID.Win32NT

    … e al di sotto di Select Case Environment.OSVersion.Version.Major, bisogna aggiungere:

    > Case 6
    > Return “Windows Vista”

    Immagino che Windows 7 sarà testato dalla “Case 7″… Chi si offre di provare?

    Mi piace

  2. In realtà la versione di Windows 7, almeno fino a questa Release Candidate, è la 6.1 e non 7, pare per via del kernel “ereditato” da Vista. Poi segue il numero di build che, sempre per l’attuale RC, è la 7100.

    In ogni caso con un minimo di buona volontà il codice si può estendere anche per Seven🙂

    Mi piace

  3. Ah, bene a sapersi, Alessandro!
    Grazie per la precisazione: non bisogna mai dare nulla per scontato 🙂

    Mi piace

  1. Pingback: [VB.NET] Identificazione del sistema operativo « Mario De Ghetto

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...

%d blogger cliccano Mi Piace per questo: