получить редакцию Windows в VB.NET

Question

Hia all Существует ли какой-либо метод, использующий API VB.NET для обнаружения Win Edition (например, Home / Professional /...)

Я попробовал пример, который нашел здесь Как определить Windowsверсия из приложения VB 6? , но osv.OSVSize = Len(osv) вызывает ошибку в VB2010Espress: переменная 'osv' используется до того, как ей присвоено значение ...

PS Я не хочу использовать WMI

Answer 1

Следующее не является пуленепробиваемым доказательством (поскольку возвращаемая строка может отличаться в зависимости от языка и может изменяться без предупреждения в новой версии Windows), но может оказаться достаточно для того, что вы хотите:

    If My.Computer.Info.OSFullName.ToUpper.Contains("PROFESSIONAL") Then
        Debug.WriteLine("Proffessional")
    ElseIf My.Computer.Info.OSFullName.ToUpper.Contains("HOME") Then
        Debug.WriteLine("Home")
    elseif ...
        'etc
    End If

Answer 2

Я только что нашел GetProductInfo в Kernel32.dll, изучая его ....