Versão do MS Office por VBS

[jcbonaldi]

Ola a todos,

Gostaria de saber se tem como, saber a versão do office que esta instalado no PC?

Tipo quero saber se e office 2010 - 2013 - 2016 - 2007

 

Estou fazendo um levantamento de equipamentos, pegando o Hostname, Usuário, Versão do Windows, Serial Number do PC e a versão do office e salvar em um txt em uma pasta na rede.

Mas só esta faltando descobrir a versão do Office,

se alguém souber eu posto depois o scripts completo.

[jbonaldi]

Ola, acabei achando a reposta, se alguém quiser.

 

Dim oRegistry
Dim oFSO
Dim sKey
Dim sAppExe
Dim sValue
Dim sAppVersion
Const HKEY_LOCAL_MACHINE 	= &H80000002
 
Set oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}//./root/default:StdRegProv")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sKey = "Software\Microsoft\Windows\CurrentVersion\App Paths"
sAppExe = "excel.exe"
oRegistry.GetStringValue HKEY_LOCAL_MACHINE, sKey & "\" & sAppExe, "", sValue
OfficeVersion = oFSO.GetFileVersion(sValue)

sOfficeVersion =Split(OfficeVersion,".", -1, 1)

Select Case sOfficeVersion(0)
Case "16"
	vVsOfficeAno = "2016"
Case "15"
	vVsOfficeAno = "2013"
Case "14"
	vVsOfficeAno = "2010"
Case "12"
	vVsOfficeAno = "2007"
Case "11"
	vVsOfficeAno = "2003"
End Select

MsgBox "A versao do office: " & OfficeVersion
MsgBox "MicroSoft Office : " & vVsOfficeAno
Set oFSO = Nothing
Set oRegistry = Nothing