#17 Identificare il sistema operativo
Pubblicato da Mario De Ghetto su 30 Gennaio 2008
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
Mario De Ghetto detto
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?
[VB.NET] Identificazione del sistema operativo « Mario De Ghetto detto
[...] da Mario De Ghetto su 10 Giugno 2009 In un mio post di qualche tempo fa (#17 Identificare il sistema operativo) suggerivo come identificare il sistema operativo che gira sulla macchina che stiamo [...]
Alessandro Del Sole detto
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
Mario De Ghetto detto
Ah, bene a sapersi, Alessandro!
Grazie per la precisazione: non bisogna mai dare nulla per scontato