So hier mal ein Code Beispiel wie man mit Visual Basic das Betriebssystem herraus bekommt.
Natürlich ist es inzwischen quatsch Windows 9x/ME, NT3, NT4 und Win2000 abzufragen. Aber ich zeigs trotzdem.
Code
Private Function GetOSVersion() As String
Dim [OSVersion] As System.OperatingSystem = System.Environment.OSVersion
Dim Result As String = "Unbekanntes System"
Select Case [OSVersion].Platform
Case System.PlatformID.Win32NT
'WinNT, Win2000, WinXP, Win2003, Windows Vista, Windows 2008
Select Case [OSVersion].Version.Major
Case 3 : Result = "Windows NT 3.51"
Case 4 : Result = "Windows NT 4.0"
Case 5
If [OSVersion].Version.Minor = 0 Then
Result = "Windows 2000"
If [OSVersion].Version.Minor = 1 Then
Result = "Windows XP"
If [OSVersion].Version.Minor = 2 Then
Result = "Windows Server 2003"
End If
End If
End If
Case 6
If [OSVersion].Version.Minor = 0 Then
Result = "Windows Vista"
If [OSVersion].Version.Minor = 1 Then
Result = "Windows Server 2008"
'Im moment wird Windows 7 auch als Windows 2008 erkannt.
End If
End If
End Select
Case System.PlatformID.Win32Windows
'Win95, Win98, Windows ME
Select Case [OSVersion].Version.Minor
Case 0 : Result = "Windows 95"
Case 10 : Result = "Windows 98"
Case 90 : Result = "Windows ME"
End Select
End Select
Return Result
End Function
