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 extrair a chave do produto do sistema operacional instalado em seu PC sem usando qualquer software de terceiros. Aqui vamos nós.
Propaganda
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.
como instalar mods no windows 10 minecraft
Comparado ao PowerShell, esta solução VBScript é quase perfeita. Tudo que você precisa fazer é clicar no arquivo. Para veja sua chave de produto do Windows 10
- Abra o Bloco de Notas.
- Copie e cole o seguinte texto na janela do bloco de notas
Option Explicit Dim objshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Definir o caminho da chave do registro Path =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Valor da chave do registro DigitalID = objshell.RegRead (Caminho e 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Obter ProductName, ProductID, ProductKey ProductName =' Nome do produto: '& objshell.RegRead (Caminho &' ProductName ') ProductID =' ID do produto: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Installed Key:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Mostrar messbox se salvar em um arquivo If vbYes = MsgBox (ProductData & vblf & vblf & 'Salvar em um arquivo?', VbYesNo + vbQuestion, 'BackUp Windows Key Information') then Save ProductData End If 'Converter binário para chars Função ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Last, keypart1, insert 'Check if OS is Windows 8 isWin8 = (Key (66) 6) And 1 Key (66) = (Key (66) And & HF7) Or ((isWin8 And 2) * 4) i = 24 Maps = 'BCDFGHJKMPQRTVWXY2346789' Do Current = 0 j = 14 Do Current = Current * 256 Current = Key (j + KeyOffset) + Current Key (j + KeyOffset) = (Current 24) Current = Current Mod 24 j = j -1 Loop While j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 1, 1) & KeyOutput Last = Current Loop 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 = insert & 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 Salvar (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Obter o nome de usuário atual UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Criar um arquivo de texto no desktop fName =' C: Users '& UserName &' Desktop WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function - Salve o texto acima em um arquivo com a extensão '.vbs' na área de trabalho.
Dica bônus: para ter certeza de salvar o arquivo corretamente com a extensão '.vbs', você pode digitar o nome entre aspas duplas, por exemplo, 'BackupWindowsKey.vbs'.
- Agora abra seu arquivo BackupWindowsKey.vbs
- 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. Funciona perfeitamente em todos os sistemas operacionais mencionados. Créditos: nononsence @ MDL .
