Inventário de licenças do Office

Question

Boa tarde,

Gostaria de uma ajuda, pois preciso fazer o inventário das licenças de mais ou menos 400 computadores (windows 7, windows 8 e windows 10).

Existe algum programa terceiro ou até da Microsoft que me disponibilize esse serviço? O que mais preciso é saber qual a versão do Office e a licença utilizada nas máquinas da rede.

Se não existir nenhum programa, existe algum outro tipo de ferramenta ou script?

Fico no aguardo, obrigado.

Answer 1

Ola, JJFNeto

Para saber versão do windows, digite no prompt de comando winver.exe,

para saber o serial do windows:

Passo 1. Abra o “Bloco de notas” e cole o código abaixo;

=======================================

Set WshShell = CreateObject("WScript.Shell")

MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)

Const KeyOffset = 52

i = 28

Chars = "BCDFGHJKMPQRTVWXY2346789"

Do

Cur = 0

x = 14

Do

Cur = Cur * 256

Cur = Key(x + KeyOffset) + Cur

Key(x + KeyOffset) = (Cur \ 24) And 255

Cur = Cur Mod 24

x = x -1

Loop While x >= 0

i = i -1

KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput

If (((29 - i) Mod 6) = 0) And (i <> -1) Then

i = i -1

KeyOutput = "-" & KeyOutput

End If

Loop While i >= 0

ConvertToKey = KeyOutput

End Function

==============================================================

Passo 2. Feito isso, acesse o menu “Arquivo” e clique em “Salvar” – ou use a tecla de atalho “Ctrl + S”;

==============================================================

Passo 3. Em seguida, em “Tipo”, selecione “Todos os arquivos”. Por fim, digite um nome de sua preferência e adicione a extensão “.vbs” ao fim;

==============================================================

Passo 4. Agora, para descobrir a chave de ativação do Windows 10  basta executar o arquivo. O serial do sistema instalado em seu computador será exibido.

===============================================================

Para o Office, utilize os comandos abaixo de acordo com sua versão, porem, só é retornada o ultimo bloco do serial:

Windows de 32 bits:

Office 2010
cscript “C:\Arquivos de ProgramasMicrosoft Office\Office14\OSPP.VBS” /dstatus
Office 2013
cscript “C:\Arquivos de Programas\Microsoft Office\Office15\OSPP.VBS” /dstatus
Office 2016    
cscript “C:\Arquivos de Programas\Microsoft Office\Office16\OSPP.VBS” /dstatus

Windows de 64 bits:

Office 2010 (32 bits)     
cscript “C:\Arquivos de Programas (x86)\Microsoft Office\Office14\OSPP.VBS” /dstatus
Office 2010 (64 bits)     
cscript “C:\Arquivos de Programas\Microsoft Office\Office14\OSPP.VBS” /dstatus
Office 2013 (32 bits)  
cscript “C:\Arquivos de Programas (x86)\Microsoft Office\Office15\OSPP.VBS” /dstatus
Office 2013 (64 bits)     
cscript “C:\Arquivos de Programas\Microsoft Office\Office15\OSPP.VBS” /dstatus
Office 2016 (32 bits)     
cscript “C:\Arquivos de Programas\Microsoft Office\Office16\OSPP.VBS” /dstatus
Office 2016 (64 bits)     
cscript “C:\Arquivos de Programas (x86)\Microsoft Office\Office16\OSPP.VBS” /dstatus

Se tiver problemas com arquivo nao encontrado, mude de "arquivos de programas" para "Program Files ..."

Boa sorte

Answer 2

Boa tarde.

Você pode usar o MAP, ferramenta de inventário gratuita da Microsoft