Quantcast
PplWare Mobile

Dica: Quer saber a chave do Windows 10? Corra este comando na PowerShell

                                    
                                

Autor: Pedro Simões


  1. Amaro says:

    E para saber a chave do Office existe algum comando parecido?

  2. Francisco Barroca says:

    E se como no meu caso não aparecer nenhuma chave?

  3. AJ says:

    De salientar que, de acordo com a Microsoft, “este comando só funciona se o Windows 8.1 ou o Windows 10 forem pré-instalados no computador”. Quem fez a atualização do Windows 7 para o Windows 10 não irá obter qualquer resultado com este comando.

  4. lumia says:

    Comigo também não funcionou esse comando :S

  5. golo says:

    acabei de experimentar e não surge a chave, deduzo que a Microsoft já deve ter feito alguma alteração para não permitir a visualização da mesma por este processo nas ultimas actualizações.

    • whatevs says:

      Este post é enganador. Não é a chave do Windows 10. É a chave do Windows que está escrita no campo específico na BIOS. Se não tem é porque o PC ou foi montado ou foi comprado e trazia COA. Hoje em dia é tudo ativo por chaves digitais, chaves escritas na BIOS que é onde esse comando entra em ação. Não por chaves compradas na NET e por aí fora.

    • whatevs says:

      No meu caso, o meu PC tem chave ao correr esse comando. Mas não é chave do Windows 10, mas sim do 8, que foi quando o comprei. Se correrem esse comando num PC com Windows 7 não vai aparecer nada, porque nessa altura só se usava COAs.

  6. Tiago says:

    Instalem o utilitario Speccy e tem toda a informação do vosso equipamento

  7. Francisco Barroca says:

    Também têm o Showkey plus e o produkey. Freeware (https://www.techspot.com/guides/1760-find-your-windows-product-key/)

  8. nuno says:

    GOLO mt bem , funciona , melhor que esta dica , Great

  9. DoContra says:

    Aqui há tempos partilharam um script, guardado como WinKey.vbs, que permitia obter a chave. Curiosamente este script dá-me um resultado totalmente diferente, ou seja, tenho duas chaves diferentes na mesma máquina (Windows 10 Pro). Em qual confiar?

    O script é este:

    Option Explicit
    Dim objshell,path,DigitalID, Result
    Set objshell = CreateObject(“WScript.Shell”)
    ‘Set registry key path
    Path = “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\”
    ‘Registry key value
    DigitalID = objshell.RegRead(Path & “DigitalProductId”)
    Dim ProductName,ProductID,ProductKey,ProductData
    ‘Get ProductName, ProductID, ProductKey
    ProductName = “Product Name: ” & objshell.RegRead(Path & “ProductName”)
    ProductID = “Product ID: ” & objshell.RegRead(Path & “ProductID”)
    ProductKey = “Installed Key: ” & ConvertToKey(DigitalID)
    ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
    ‘Show messbox if save to a file
    If vbYes = MsgBox(ProductData & vblf & vblf & “Save to a file?”, vbYesNo + vbQuestion, “BackUp Windows Key Information”) then
    Save ProductData
    End If
    ‘Convert binary to chars
    Function 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 While 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
    ‘Save data to a file
    Function Save(Data)
    Dim fso, fName, txt,objshell,UserName
    Set objshell = CreateObject(“wscript.shell”)
    ‘Get current user name
    UserName = objshell.ExpandEnvironmentStrings(“%UserName%”)
    ‘Create a text file on desktop
    fName = “C:\Users\” & UserName & “\Desktop\WindowsKeyInfo.txt”
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    Set txt = fso.CreateTextFile(fName)
    txt.Writeline Data
    txt.Close
    End Function

  10. Rui Santos says:

    A Nirsoft tem óptimo software entre eles o https://www.nirsoft.net/utils/product_cd_key_viewer.html

    Que ao contrario deste método, funciona…

  11. SANDOKAN 1513 says:

    A minha chave está activada digitalmente no meu PC desktop.Assim o diz nas configurações do meu Windows 10 Pro,versão 19580 do programa Windows Insider da Microsoft,canal Fast Ring. 🙂

  12. Fernando says:

    Este comando não funciona na minha máquina, versão do windows 10pro 1909

Deixe uma resposta

O seu endereço de email não será publicado.

You may use these HTML tags and attributes: <a href="" title="" rel=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

Aviso: Todo e qualquer texto publicado na internet através deste sistema não reflete, necessariamente, a opinião deste site ou do(s) seu(s) autor(es). Os comentários publicados através deste sistema são de exclusiva e integral responsabilidade e autoria dos leitores que dele fizerem uso. A administração deste site reserva-se, desde já, no direito de excluir comentários e textos que julgar ofensivos, difamatórios, caluniosos, preconceituosos ou de alguma forma prejudiciais a terceiros. Textos de caráter promocional ou inseridos no sistema sem a devida identificação do seu autor (nome completo e endereço válido de email) também poderão ser excluídos.