Hallo,
mit folgendem Code lässt sich das benutzte Betriebssystem ermitteln.
Zusätzlich kann noch die Architektur (32-bit oder 64-bit) des benutzten Betriebssystem ermittelt werden.
mit folgendem Code lässt sich das benutzte Betriebssystem ermitteln.
VB.NET-Quellcode
- Public Class Form1
- ''' <summary>
- ''' Gibt das aktuelle Betriebssystem zurück.
- ''' </summary>
- ''' <returns>Das aktuelle Betriebssystem</returns>
- ''' <remarks></remarks>
- Public Function GetOSVersion() As String
- Select Case Environment.OSVersion.Platform
- Case PlatformID.Win32S
- Return "Windows 3.1"
- Case PlatformID.Win32Windows
- Select Case Environment.OSVersion.Version.Minor
- Case 0
- Return "Windows 95" 'Windows 95 unterstützt .Net nicht
- Case 10
- If Environment.OSVersion.Version.Revision.ToString() = "2222A" Then
- Return "Windows 98 - Second Edition"
- Else
- Return "Windows 98"
- End If
- Case 90
- Return "Windows ME"
- Case Else
- Return "Unbekannt"
- End Select
- Case PlatformID.Win32NT
- Select Case Environment.OSVersion.Version.Major
- Case 3
- Select Case Environment.OSVersion.Version.Minor
- Case 0
- Return "Windows NT 3" 'Windows NT 3 unterstützt .Net nicht
- Case 1
- Return "Windows NT 3.1" 'Windows NT 3.1 unterstützt .Net nicht
- Case 5
- Return "Windows NT 3.5" 'Windows NT 3.5 unterstützt .Net nicht
- Case 51
- Return "Windows NT 3.51" 'Windows NT 3.51 unterstützt .Net nicht
- End Select
- Case 4
- Return "Windows NT 4.0"
- Case 5
- Select Case Environment.OSVersion.Version.Minor
- Case 0
- Return "Windows 2000"
- Case 1
- Return "Windows XP"
- Case 2
- Return "Windows 2003"
- End Select
- Case 6
- Select Case Environment.OSVersion.Version.Minor
- Case 0
- Return "Windows Vista/Windows 2008 Server"
- Case 1
- Return "Windows 7"
- End Select
- Case Else
- Return "Unbekannt"
- End Select
- Case PlatformID.WinCE
- Return "Windows CE"
- Case PlatformID.Xbox
- Return "XBox"
- Case PlatformID.MacOSX
- Return "Mac OS X"
- Case PlatformID.Unix
- Return "Unix"
- Case Else
- Return "Unbekannt"
- End Select
- End Function
- Private Sub btn_Betriebssystem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Betriebssystem.Click
- 'Bei Windows Vista inkl. Service Pack 2:
- 'Methode 1
- MessageBox.Show(GetOSVersion) 'Liefert: Windows Vista/Windows 2008 Server
- 'Methode 2
- MessageBox.Show(Environment.OSVersion.ToString) 'Liefert: Microsoft Windows NT 6.0.6002 Service Pack 2
- End Sub
- End Class
Zusätzlich kann noch die Architektur (32-bit oder 64-bit) des benutzten Betriebssystem ermittelt werden.
VB.NET-Quellcode
- Public Class Form1
- ''' <summary>
- ''' Gibt die bit-Architektur des Betriebssystem zurück
- ''' </summary>
- ''' <returns>bit-Wert als Integer</returns>
- ''' <remarks></remarks>
- Public Function GetArchitektur() As Integer
- Return Runtime.InteropServices.Marshal.SizeOf(GetType(IntPtr)) * 8
- End Function
- Private Sub btn_Architektur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Architektur.Click
- MessageBox.Show(GetArchitektur) 'Liefert die bit-Architektur des aktuellen Betriebssystems
- End Sub
- End Class
wintoolz.de
Benutze auch du Ecosia
- wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
- wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
- wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten
Benutze auch du Ecosia