none
Inventário de licenças do Office RRS feed

  • 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.

    quinta-feira, 3 de novembro de 2016 15:39

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” /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


    • 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
    sexta-feira, 4 de novembro de 2016 13:58

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” /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


    • 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
    sexta-feira, 4 de novembro de 2016 13:58
  • Boa tarde.

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

    terça-feira, 25 de abril de 2017 20:43