Tipp 0079 Betriebssystem ermitteln
Autor/Einsender:
Datum:
  Michael Werner
26.06.2005
Entwicklungsumgebung:   VB.Net 2003
Framework:   1.1
Mit der Klasse OperatingSystem und der Eigenschaft Environment.OSVersion können alle Windows-Betriebssysteme ermittelt werden. Grundlage ist die von Microsoft verwendete Platform-ID und Major- und Minor-Versionsnummer, hier in einer tabellarischen Übersicht zusammengefasst:
Betriebssystem Platform-ID Major-Version Minor-Version
Windows 95 1 4 0
Windows 98 1 4 10
Windows Me 1 4 90
Windows NT 4.0 2 4 0
Windows 2000 2 5 0
Windows XP 2 5 1
Windows Server 2003 2 5 2
Funktion zum Ermitteln des Betriebssystems
 
  Public Function GetVersion() As String
    Dim osInfo As OperatingSystem

    osInfo = OSVersion

    With osInfo
      Select Case .Platform
        Case .Platform.Win32Windows
          Select Case (.Version.Minor)
            Case 0
              Return "Windows 95"
            Case 10
              If .Version.Revision.ToString() = "2222A" Then
                Return "Windows 98 Second Edition"
              Else
                Return "Windows 98"
              End If
            Case 90
              Return "Windows Me"
          End Select

        Case .Platform.Win32NT
          Select Case (.Version.Major)
            Case 3
              Return "Windows NT 3.51"
            Case 4
              Return "Windows NT 4.0"
            Case 5
              Select Case (.Version.Minor)
                Case 0
                  Return "Windows 2000"
                Case 1
                  Return "Windows XP"
                Case 2
                  Return "Windows Server 2003"
              End Select
            Case Else
              Return "Failed"
          End Select
      End Select
    End With
  End Function
 
Links zum Thema
Betriebssystem ermitteln (NT-basiert)
Systemeinstellungen auslesen

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,2 kB) Downloads bisher: [ 767 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 22. Januar 2012