Prüfe die installierte Windows 10 Version Mit diesen Code können Sie einfach herausfinden, welche Windows 10 Version installiert ist.
Autor:   Samir Ben Kheder	Bewertung:     [ Jetzt bewerten ]	Views:  4.426
www.bk-software.de	System:  Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 17 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit diesen Code können Sie einfach herausfinden, welche Windows 10 Version installiert ist.

Leider konnte ich diesen Code nicht auf allen Versionen testen.
Getestet sind 20H2, 2004, 1909, 1903.

Public Function IstWindows10() As Boolean
  Return (My.Computer.Info.OSFullName.ToString).Contains("Windows 10")
End Function

Public Sub CheckeWindows10Build()
  If Not IstWindows10() Then Exit Sub
 
  Dim winbuild As Integer = 0
  Try
    Dim RegKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWAREMicrosoftWindows NTCurrentVersion")
    winbuild = RegKey.GetValue("CurrentBuild")
  Catch
  End Try
 
  Select Case winbuild
    Case 19042
      MessageBox.Show("20H2 - 19042.572 October 2020 Update October 20, 2020")
    Case 19041
      MessageBox.Show("2004 - 19041.264 May 2020 Update May 27, 2020")
    Case 18363
      MessageBox.Show("1909 - 18363.476 November 2019 Update November 12, 2019")
    Case 18362
      MessageBox.Show("1903 - 18362.116 May 2019 Update May 21, 2019")
    Case 17763
      MessageBox.Show("1809 - 17763.1 October 2018 Update October 2, 2018 November 13, 2018 (re-released)")
    Case 17134
      MessageBox.Show("1803 - 17134.1 April 2018 Update April 30, 2018")
    Case 16299
      MessageBox.Show("1709 - 16299.15 Fall Creators Update October 17, 2017")
    Case 15063
      MessageBox.Show("1703 - 15063 Creators Update April 5, 2017")
    Case 14393
      MessageBox.Show("1607 - 14393 Anniversary Update August 2, 2016")
    Case 10586
      MessageBox.Show("1511 - 10586 November Update November 10, 2015")
    Case 10240
      MessageBox.Show("1507 - 10240 Threshold 1 July 29, 2015")
    Case Else
      MessageBox.Show("Ihre Windows 10 Version ist noch unbekannt!")
  End Select
 
  ' Quelle:
  ' https://www.tenforums.com/tutorials/23975-find-windows-10-build-number.html
End Sub