[Resolvido]Mostra Versão atualizar

Bom dia

A função aberta no Win 11 continua a informar que é o Win 10






Public Function MostraVersao()
Dim shell, strOS, strVerKey, strVersion
Set shell = CreateObject("WScript.Shell")
strOS = shell.ExpandEnvironmentStrings("%OS%")
If strOS = "Windows_NT" Then
  strVerKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
  strVersion = shell.RegRead(strVerKey & "ProductName") ' & " " & shell.regread(strVerKey & "CurrentVersion") & "." & shell.regread(strVerKey & "CurrentBuildNumber")
Else
 strVerKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\"
 strVersion = shell.RegRead(strVerKey & "ProductName") '& " " & shell.regread(strVerKey & "VersionNumber")
End If
MostraVersao = strVersion
Set shell = Nothing
End Function

Assis, boa noite.

O Win11 está estável, com bug ?

É mais leve que o Win 10 ?

Sìlvio

Ainda é cedo para responder. Iniciei só na semana passada com um PC novo.

O problema tem sido passar as Bases de Dados prontas para 64 Bits.

Bom Ano 2023

Apenas acompanhando.
Interessante.
A princípio, talvez, a mesma dificuldade do Crisóstomo
Em outro tópico.

Pois é Mylton, muito estranho, muito estranho.

A Microsoft ainda não atualizou a chave de registro para mostrar o produto correto, mostra sempre o 10.

No entanto consegue-se obter através do CurrentBuildNumber, se for 22000 então é o 11.

Código:

Public Function MostraVersao()
Dim shell, strOS, strVerKey, strVersion

Set shell = CreateObject("WScript.Shell")
strOS = shell.ExpandEnvironmentStrings("%OS%")

    If strOS = "Windows_NT" Then
        strVerKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentBuildNumber"
        strVerKey = shell.RegRead(strVerKey)
   
        If strVerKey = 22000 Then
          strVersion = "Windows 11 Enterprise"
          Else
          strVerKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName"
          strVersion = shell.RegRead(strVerKey)
        End If
       
    Else
        strVerKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\CurrentBuildNumber"
        strVerKey = shell.RegRead(strVerKey)
   
        If strVerKey = 22000 Then
          strVersion = "Windows 11 Enterprise"
          Else
          strVerKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductName"
          strVersion = shell.RegRead(strVerKey)
        End If
    End If
MostraVersao = strVersion
Set shell = Nothing
End Function


Boa noite JPaulo

No meu não funciona

Bom Ano

up

Assis, bom ano para si.

Não funciona é muito vago;

1º dá erro ?
2º não dá resultado nenhum ?
3º já depurou o código e foi vendo os resultados ?

Boa noite JPaulo

Estou com o Windows 11 64, e Office 2021 64, e mostra " Windows 10 Home "

Teste por favor

Boas.....

Assis, o meu aqui mostra corretamente a versão a qual eu estou a utilizar: Win 10 Enterprise.

Assis, você já foi à sua chave de registro e viu se a build é a 22000

SOFTWARE\Microsoft\Windows\CurrentVersion\CurrentBuildNumber

Bom dia
Peço desculpa pelo atrazo.

Relembro que actualmento tenho Windows Home 11



Obrigado

up

Bom dia

Alguém que esteja a usar o Windows 11 Home, tem a informação certa com este código ?

Obrigado

Boa tarde

up !!

Bom Dia
Não funciona no Win 11 Home

Bom dia

Alguém já testou e não funciona no Windows 11 ?

Obrigado

Boa tarde Assis

Em anexo

Saludos!

Obrigado Franklin