Como visualizar a chave do produto no Windows 10, Windows 8 e Windows 7

Se você perdeu ou esqueceu onde armazenou sua chave de produto do Windows, eu tenho uma solução para você. Hoje veremos como um script VBS simples pode ser usado para nos mostrar a chave do produto de uma cópia instalada do Windows 10, Windows 8 ou Windows 7. É uma solução simples para extrair a chave do produto do sistema operacional instalado no seu PC sem usar nenhum software de terceiros. Aqui vamos nós.

Na verdade, antes eu postei um solução semelhante que usou o PowerShell. mas muitos usuários reclamaram que ele falha para eles. O PowerShell pode exigir habilidades adicionais do usuário e ajustes extras para executar cmdlets não assinados.

Comparado ao PowerShell, esta solução VBScript é quase perfeita. Tudo que você precisa fazer é apenas clicar no arquivo. Para veja sua chave de produto do Windows 10

1. Abra o bloco de notas.
2. Copie e cole o seguinte texto na janela do bloco de notas

   Opção explícita. Dim objshell, caminho, DigitalID, Resultado. Defina objshell = CreateObject ("WScript. Shell ") 'Definir caminho da chave de registro Path =" HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ "' Valor da chave de registro DigitalID = objshell. RegRead (Path & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Obter ProductName, ProductID, ProductKey ProductName = "Nome do produto:" & objshell. RegRead (Path & "ProductName") ProductID = "Product ID:" & objshell. RegRead (Path & "ProductID") ProductKey = "Chave instalada:" & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Mostrar messbox se salvar em um arquivo. Se vbYes = MsgBox (ProductData & vblf & vblf & "Salvar em um arquivo?", VbYesNo + vbQuestion, "BackUp Windows Key Information"), salve ProductData. Fim se. 'Converter binário para caracteres Função ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert' Verificar se o sistema operacional é Windows 8 isWin8 = (chave (66) \ 6) E 1 Chave (66) = (Chave (66) E & HF7) Ou ((isWin8 E 2) * 4) i = 24 Mapas = "BCDFGHJKMPQRTVWXY2346789" Faça Atual = 0 j = 14 Faça Atual = Atual * 256 Atual = Chave (j + KeyOffset) + Tecla atual (j + KeyOffset) = (Atual \ 24) Atual = Mod atual 24 j = j -1 Loop Enquanto j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 1, 1) & KeyOutput Last = Loop atual enquanto i> = 0. If (isWin8 = 1) Then keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = inserir & KeyOutput End If. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Mid (KeyOutput, 21, 5) End Function 'Salvar dados em um arquivo Função Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject ("wscript.shell")' Get current nome do usuário. UserName = objshell. ExpandEnvironmentStrings ("% UserName%") 'Cria um arquivo de texto na área de trabalho. fName = "C: \ Users \" & UserName & "\ Desktop \ WindowsKeyInfo.txt" Defina fso = CreateObject ("Scripting. FileSystemObject ") Defina txt = fso. CreateTextFile (fName) txt. Writeline Data txt. Fechar Função Final 
   

3. Salve o texto acima em um arquivo com a extensão ".vbs" na área de trabalho.
   Dica bônus: para garantir que você salvou o arquivo corretamente com a extensão ".vbs", você pode digitar o nome dele entre aspas duplas, por exemplo, "BackupWindowsKey.vbs".
   
4. Agora abra seu arquivo BackupWindowsKey.vbs
5. Voila, sua chave de produto é exibida na tela!
   

Clique aqui para baixar o arquivo BackupWindowsKey.vbs

Testei esse truque no Windows 7, Windows 8 e Windows 10. Ele funciona perfeitamente em todos os sistemas operacionais mencionados. Créditos: nononsence @ MDL.