したがって、根本的な問題に戻るために、私はWindows Management Instrumentation(WMI)を使用して、期待どおりの方法でWindowsバージョン番号を生成します。たとえば、10.0.10586を報告します。
ここに短いコードスニペットがあります
Public Class OS
' Use Windows Management Instrumentation (WMI) to get the OS version
Public Shared Function GetOSVersion() As String
Dim answer As String = ""
' add Imports System.Management and add a resource to System.Management
Dim osClass As New ManagementClass("Win32_OperatingSystem")
For Each queryObj As ManagementObject In osClass.GetInstances()
answer = DirectCast(queryObj.GetPropertyValue("Version"), String)
Next
Return answer
End Function
End Class