Verifica Versão do Windows

Função para verificar a versão do Windows, útil para na instalação de um sistema para o usuário final quando necessita de instalação de programas adjacentes, visto que no windows 7, os programas de 32 bits são instalados na pasta:

Arquivos de Programas(x86)\

Retirado de outro fórum porém disponibilizado no mesmo pelo Meste João Paulo.

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

Enjoy!!!

*****************************************************************************************************************



Repositório de Exemplos Ms Access
Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para
todos os Utilizadores Cadastrados.
Não tirar duvidas nesta sala.