تشخیص راه انداز سیستم (Operating System)

[ROSTAM2]

سلام
من برای تشخیص راه انداز سیستم ویندوز این کد رو نوشتم اگر ویندوزتون متفاوت از 10 و 11 هست تست کنید ببینید دستور کامل هست یا نه؟

با تشکر....

    Enum OperatingSystems

        Unknown = -1

        WindowsXP = 0

        Windows7 = 1

        Windows8 = 2

        Windows10 = 3

        Windows11 = 4

    End Enum

    Function OperatingSystem() As OperatingSystems

        Dim OSN As String = "Microsoft Windows"

        If My.Computer.Info.OSFullName.StartsWith(OSN + " XP") Then

            Return OperatingSystems.WindowsXP

        ElseIf My.Computer.Info.OSFullName.StartsWith(OSN + " 7") Then

            Return OperatingSystems.Windows7

        ElseIf My.Computer.Info.OSFullName.StartsWith(OSN + " 8") Then

            Return OperatingSystems.Windows8

        ElseIf My.Computer.Info.OSFullName.StartsWith(OSN + " 10") Then

            Return OperatingSystems.Windows10

        ElseIf My.Computer.Info.OSFullName.StartsWith(OSN + " 11") Then

            Return OperatingSystems.Windows11

        Else

            Return OperatingSystems.Unknown

        End If

    End Function