none
Script não retorna seriais Office 2010 e Windows X64 RRS feed

  • Pergunta

  • Boa tarde,

    Com ajuda do amigo Aparecido Deveza consegui chegar ao scipt abaixo. Este script coleta informações de hardware e software da máquina. Estou utilizando para fazer inventário. O grande problema é que não consigo fazer com que ele retorne o serial do Office 2010 (tanto x32 quanto x64), nem do Windows 7 x64.

    Tentei colocar o script aqui mas só aceita 60000 carecteres, então tive que colocar no 4shared (http://www.4shared.com/file/ssOAZ71N/inventario.html)

    Alguém sabe como fazer para retornar estas informações?

    OBS: Gostaria de pedir aos moderadores que não marquem nada como resposta. A dúvida é minha. Se quiserem ajudar, por favor, ajudem a solucionar o problema.

    Obrigado


    domingo, 6 de maio de 2012 18:59

Respostas

  • Olá,

    Olha para pegar a chave do WIN7 uso este script em vbs:

     Set WshShell = CreateObject("wscript.Shell")
     strComputer = "."
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
     strDigitalProductId="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId" 
     strxpKey=GetKey(WshShell.RegRead(strDigitalProductId))
     MsgBox strxpKey
     
     
     Function GetKey(rpk)
     
    Const rpkOffset=52:i=28
     szPossibleChars="BCDFGHJKMPQRTVWXY2346789"
     
    Do 'Rep1
     dwAccumulator=0 : j=14
     Do
     dwAccumulator=dwAccumulator*256
     dwAccumulator=rpk(j+rpkOffset)+dwAccumulator
     rpk(j+rpkOffset)=(dwAccumulator\24) and 255
     dwAccumulator=dwAccumulator Mod 24
     j=j-1
     Loop While j>=0
     i=i-1 : szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey
     if (((29-i) Mod 6)=0) and (i<>-1) then
     i=i-1 : szProductKey="-"&szProductKey
     End If
     Loop While i>=0 'Goto Rep1
     
    GetKey=szProductKey
     End Function

    Este script funciona legal aqui.

    Adapte ele ao seu hta, já a chave para OFFICE não sei te informar pois não uso office só BROffice.

    Até....


    Warley

    sexta-feira, 18 de maio de 2012 15:14

Todas as Respostas

  • Éder,

    Me desculpe se marquei alguma dúvida sua como respondida e não havia resolvido seu problema, tenho orientação de marcar como resposta caso o dono não dê retorno(funcionou ou não) e  houver alguma postagem com pelo menos indicação para solução. (Na maioria absoluta das vezes que faço isto eu testo o código).

    Você mesmo pode desfazer o equivoco desmarcando a resposta (no caso de você ter iniciado o tópico, isto é, a dúvida for sua).

    Desmarcar como Resposta

    Estou aqui para ajudar e organizar.


    Fábio de Paula Junior


    domingo, 6 de maio de 2012 20:41
    Moderador
  • OK Fábio, obrigado...

    Algúem sabe como resolver isso?

    sexta-feira, 18 de maio de 2012 09:15
  • Olá,

    Olha para pegar a chave do WIN7 uso este script em vbs:

     Set WshShell = CreateObject("wscript.Shell")
     strComputer = "."
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
     strDigitalProductId="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId" 
     strxpKey=GetKey(WshShell.RegRead(strDigitalProductId))
     MsgBox strxpKey
     
     
     Function GetKey(rpk)
     
    Const rpkOffset=52:i=28
     szPossibleChars="BCDFGHJKMPQRTVWXY2346789"
     
    Do 'Rep1
     dwAccumulator=0 : j=14
     Do
     dwAccumulator=dwAccumulator*256
     dwAccumulator=rpk(j+rpkOffset)+dwAccumulator
     rpk(j+rpkOffset)=(dwAccumulator\24) and 255
     dwAccumulator=dwAccumulator Mod 24
     j=j-1
     Loop While j>=0
     i=i-1 : szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey
     if (((29-i) Mod 6)=0) and (i<>-1) then
     i=i-1 : szProductKey="-"&szProductKey
     End If
     Loop While i>=0 'Goto Rep1
     
    GetKey=szProductKey
     End Function

    Este script funciona legal aqui.

    Adapte ele ao seu hta, já a chave para OFFICE não sei te informar pois não uso office só BROffice.

    Até....


    Warley

    sexta-feira, 18 de maio de 2012 15:14