Betriebssystem Win11 auslesen

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von -Franky-.

    Betriebssystem Win11 auslesen

    Moin!

    in Anlehnung an Betriebssystem auslesen für Windows 10 würde mich interessieren, wie man ziemlich sicher Win11 auslesen kann bzw. mir reicht es eigentlich schon aus festzustellen, dass es sich um "Win10" oder "Win11" handelt.

    Mein Code bisher ist

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Function GetWindwosClientVersion4Folder(Optional Log As EBL.Logger.Log = Nothing) As String
    2. '------ http://ms-wiki-1/eblwiki/index.php?title=Miscellaneous_(Klasse_von_EBL.Service)#GetWindwosClientVersion4Folder ---
    3. ' Quelle: https://www.vb-paradise.de/index.php/Thread/116592-Betriebssystem-auslesen-f%C3%BCr-Windows-10/
    4. Dim major As Integer = System.Environment.OSVersion.Version.Major
    5. Dim minor As Integer = System.Environment.OSVersion.Version.Minor
    6. Dim build As Integer = System.Environment.OSVersion.Version.Build
    8. If System.IO.File.Exists(_k_EBL_OSystem) = False Then
    9. Log.WriteAsError("Kein Zugriff auf das Verzeichnis:" & Environment.NewLine &
    10. _k_EBL_OSystem & Environment.NewLine &
    11. "Diese Datei wird für die Ermittlung des Betriebssystems benötigt!" & Environment.NewLine & Environment.NewLine &
    12. "major:= " & major.ToString & Environment.NewLine &
    13. "minor:= " & minor.ToString & Environment.NewLine &
    14. "build:= " & build.ToString)
    15. Return ""
    16. End If
    18. Try
    19. If major = 6 AndAlso minor = 1 Then
    20. Return "Win7"
    21. 'ElseIf major = 6 AndAlso minor = 2 AndAlso build = 9200 Then
    22. ' Return "Win8"
    23. 'ElseIf major = 6 AndAlso minor = 2 AndAlso build = 9600 Then
    24. ' Return "Win8"
    25. ElseIf major = 10 AndAlso minor = 0 AndAlso build = 10240 Then
    26. Return "Win10"
    28. ElseIf major = 6 AndAlso minor = 2 AndAlso build = 9200 Then
    29. Return "Win10"
    31. ElseIf major = 10 AndAlso minor = 0 AndAlso build = 16299 Then ' PC SchlaussSe
    32. Return "Win10"
    34. ElseIf major = 10 AndAlso minor = 0 AndAlso build = 14393 Then ' Server 2016 - ms-kanaldatdb-1
    35. Return "Win10"
    37. ElseIf major = 10 AndAlso minor = 0 Then ' damit es weitestgehend passt
    38. Return "Win10"
    40. Else
    41. Log.WriteAsError("Es liegt eine Version vor, die nicht unterstützt wird!" & Environment.NewLine & _
    42. "major:= " & major.ToString & Environment.NewLine & _
    43. "minor:= " & minor.ToString & Environment.NewLine & _
    44. "build:= " & build.ToString)
    45. End If
    46. Catch ex As Exception
    47. Log.WriteAsError("unvorhergesehener Fehler in EBL.Service > Miscellaneous > GetWindwosClientVersion4Folder" & Environment.NewLine & _
    48. "major:= " & major.ToString & Environment.NewLine & _
    49. "minor:= " & minor.ToString & Environment.NewLine & _
    50. "build:= " & build.ToString & Environment.NewLine & ex.ToString)
    51. End Try
    52. Return ""
    53. End Function



    Kann mir einer weiterhelfen?

    Gruß Jan

    @jan99 Probierma
    ' ab Framework 4.8 oder so

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. '-----
    3. MessageBox($"System: {RuntimeInformation.OSDescription}")

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Naja, die 22631 sagt Dir das Du Win11 23H2 hast -> learn.microsoft.com/de-de/wind…ows11-release-information

    Edit: Du kannst auch entsprechende APIs zum auslesen der Versionsinfo nutzen. z.B. learn.microsoft.com/de-de/wind…/wdm/nf-wdm-rtlgetversion mit Struct OSVERSIONINFOEXW. Ansonsten gibt es noch weitere APIs. Schaust Du hier: https://learn.microsoft.com/de-de/windows/win32/sysinfo/version-helper-apis

    Edit2: Hier gibt es eine komplette Klasse VersionHelper auf Basis entsprechender APIs: stackoverflow.com/questions/31…he-new-version-helper-api
    Mfg -Franky-

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „-Franky-“ ()

    Ich mach das in meinen aktuellen Projekten so:

    VB.NET-Quellcode

    1. 'Betriebssystem prüfen
    2. If Not My.Computer.Info.OSFullName.Contains("indows 10") And Not My.Computer.Info.OSFullName.Contains("indows 11") Then
    3. MessageboxSelf("Windows 10 oder Windows 11 erforderlich!", "Windows 10 or Windows 11 expected", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    4. End
    5. End If


    MessageboxSelf() ist eine Custom-Messagebox

    Das hat bisher immer funktioniert, egal welche Version man verwendet (IOT, Value, Enterprise ...).
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    @jan99 Auf die schnelle per API. Leicht abgeändertetes Bsp. nach dem SO Thread.
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. ' https://en.wikipedia.org/wiki/Windows_10_version_history
    3. ' https://en.wikipedia.org/wiki/Windows_11_version_history
    5. Imports System.Runtime.InteropServices
    7. Public Class Form1
    9. #Region "APIs"
    10. <DllImport("Ntdll.dll", EntryPoint:="RtlGetVersion")>
    11. Private Shared Function RtlGetVersion(ByRef lpVersionInformation As OSVERSIONINFOEXW) As Integer
    12. End Function
    13. #End Region
    15. #Region "Const"
    16. Private Const WIN32_WINNT_WIN10 As Short = &HA00 ' Windows 10, 11
    17. #End Region
    19. #Region "Structure"
    20. Private Structure OSVERSIONINFOEXW
    21. Dim dwOSVersionInfoSize As Integer
    22. Dim dwMajorVersion As Integer
    23. Dim dwMinorVersion As Integer
    24. Dim dwBuildNumber As Integer
    25. Dim dwPlatformId As Integer
    26. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)> Dim szCSDVersion As String
    27. Dim wServicePackMajor As Short
    28. Dim wServicePackMinor As Short
    29. Dim wSuiteMask As Short
    30. Dim wProductType As Byte
    31. Dim wReserved As Byte
    32. End Structure
    33. #End Region
    35. #Region "Functions"
    36. Private Shared Function LoByte(ByVal w As Short) As Byte
    37. Return CByte(w And &HFF)
    38. End Function
    40. Private Shared Function HiByte(ByVal w As Short) As Byte
    41. Return CByte(w >> 8 And &HFF)
    42. End Function
    44. Private Function IsWindowsVersionOrGreater(dwMajorVersion As Integer,
    45. dwMinorVersion As Integer,
    46. wServicePackMajor As Short,
    47. Optional wServicePackMinor As Short = 0,
    48. Optional dwBuild As Integer = 0) As Boolean
    49. Dim Ret As Boolean
    50. Dim OSVERSIONINFO As New OSVERSIONINFOEXW With {
    51. .dwOSVersionInfoSize = Marshal.SizeOf(Of OSVERSIONINFOEXW)
    52. }
    53. If RtlGetVersion(OSVERSIONINFO) = 0 Then
    54. With OSVERSIONINFO
    55. Select Case True
    56. Case .dwMajorVersion > dwMajorVersion : Ret = True
    57. Case .dwMinorVersion > dwMinorVersion : Ret = True
    58. Case .wServicePackMajor > wServicePackMajor : Ret = True
    59. Case .wServicePackMinor > wServicePackMinor : Ret = True
    60. Case .dwBuildNumber >= dwBuild : Ret = True
    61. End Select
    62. End With
    63. End If
    64. Return Ret
    65. End Function
    67. Public Function IsWindows10_OrGreater() As Boolean
    68. IsWindows10_OrGreater = IsWindowsVersionOrGreater(HIBYTE(WIN32_WINNT_WIN10), LOBYTE(WIN32_WINNT_WIN10), 0, 0, 0)
    69. End Function
    71. ' => Win11 21H2
    72. Public Function IsWindows11_OrGreater() As Boolean
    73. IsWindows11_OrGreater = IsWindowsVersionOrGreater(HIBYTE(WIN32_WINNT_WIN10), LOBYTE(WIN32_WINNT_WIN10), 0, 0, 22000)
    74. End Function
    76. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    77. Debug.Print(IsWindows10_OrGreater.ToString)
    78. Debug.Print(IsWindows11_OrGreater.ToString)
    79. End Sub
    80. #End Region
    81. End Class

    Mfg -Franky-