Tipp 0026 Betriebssystem ermitteln (NT-basiert)
Autor/Einsender:
Datum:
  Michael Werner
26.01.2004
Entwicklungsumgebung:   VB.Net 2002
Framework:   1.0
Mit der Klasse System.Environment.OSVersion und ihren Eigenschaften Platform und Version kann ziemlich einfach das Betriebsystem und die Version ermittelt werden. Zusätzlich wurde eine Funktion entwickelt, die abfragt, ob es sich um ein NT-basiertes Betriebssystem (NT, Win 2000, XP, Vista) handelt oder nicht.
 
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click

    Dim os As OperatingSystem = Environment.OSVersion

    Label1.Text = os.Platform.ToString
    Label2.Text = os.Version.ToString
  End Sub

  Private Function IsWin32NT() As Boolean
    Dim os As OperatingSystem = Environment.OSVersion
    Dim thisOS As String = os.Platform.ToString()

    Select Case thisOS
      Case "Win32NT"
        Return True
      Case "Win32Windows"
        Return False
      Case Else
        MsgBox("Weder noch")
        Return False
    End Select
  End Function

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Label3.Text = IsWin32NT()
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button3.Click
    Me.Close()
  End Sub
End Class
 
Links zum Thema
Betriebssystem ermitteln
Systemeinstellungen auslesen

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


Download  (6,3 kB) Downloads bisher: [ 804 ]

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, 15. Januar 2012