Usuário com melhor resposta
Inventário de licenças do Office

Pergunta
-
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.
Respostas
-
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” /dstatusWindows 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” /dstatusSe tiver problemas com arquivo nao encontrado, mude de "arquivos de programas" para "Program Files ..."
Boa sorte
- Sugerido como Resposta Marcos-Mcontec sexta-feira, 4 de novembro de 2016 13:58
- Editado Marcos-Mcontec sexta-feira, 4 de novembro de 2016 13:59 edition
- Marcado como Resposta JJFNeto sexta-feira, 11 de novembro de 2016 15:50
Todas as Respostas
-
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” /dstatusWindows 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” /dstatusSe tiver problemas com arquivo nao encontrado, mude de "arquivos de programas" para "Program Files ..."
Boa sorte
- Sugerido como Resposta Marcos-Mcontec sexta-feira, 4 de novembro de 2016 13:58
- Editado Marcos-Mcontec sexta-feira, 4 de novembro de 2016 13:59 edition
- Marcado como Resposta JJFNeto sexta-feira, 11 de novembro de 2016 15:50
-