Windows 7 y 8: leer y mostrar claves de licencia

¿Ya no tiene su clave de licencia a mano, la eliminó o la convirtió? ¡Ningún problema! Con este truco podrás volver a sacarlo. ¡Este truco sólo funciona con Windows 7 y 8!

Instrucciones paso a paso

1. Abra PowerShell ingresando "PowerShell" en el campo de búsqueda en el menú Inicio. Presione "Ctrl, Mayús, Entrar". Si aparece una ventana de advertencia, confirme con “Sí”.
2. Lo que se necesita a continuación es más libertad de mando. Por lo tanto, ingrese el comando “set-executionpolicy remotesigned” y presione “Enter”. La próxima vez que se le pregunte, confirme con “Sí”. Alternativamente, también es posible el comando set-executionpolicy unrestricted ".
3. Abra el Bloc de notas de Windows.
4. Para Windows 7, ingrese las siguientes líneas en el editor: function Get-WindowsKey { param ($targets = ".") $hklm = 2147483650 $regPath = "Software\Microsoft\Windows NT\CurrentVersion" $regValue = "DigitalProductId" Foreach ($target in $targets) { $productKey = $null $win32os = $null $wmi = [WMIClass]"\\$target\root\default:stdRegProv" $data = $wmi.GetBinaryValue($hklm,$regPath,$regValue) $binArray = ($data.uValue)[52..66] $charsArray = "B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9" For ($i = 24; $i -ge 0; $i--) { $k = 0 For ($j = 14; $j -ge 0; $j--) { $k = $k * 256 -bxor $binArray[$j] $binArray[$j] = [math]::truncate($k / 24) $k = $k % 24 } $productKey = $charsArray[$k] + $productKey If (($i % 5 -eq 0) -and ($i -ne 0)) { $productKey = "-" + $productKey } } $win32os = Get-WmiObject Win32_OperatingSystem -computer $target $obj = New-Object Object $obj | Add-Member Noteproperty Computer-Name -value $target $obj | Add-Member Noteproperty Windows-Edition -value $win32os.Caption $obj | Add-Member Noteproperty Windows-Version -value $win32os.CSDVersion $obj | Add-Member Noteproperty Bit-Version -value $win32os.OSArchitecture $obj | Add-Member Noteproperty Build-Nummer -value $win32os.BuildNumber $obj | Add-Member Noteproperty Lizenznehmer -value $win32os.RegisteredUser $obj | Add-Member Noteproperty Produkt-ID -value $win32os.SerialNumber $obj | Add-Member Noteproperty Produkt-Key -value $productkey $obj } }
5. Si utilizas Windows 8 y 8.1, debes ingresar lo siguiente: Function GetWinKey { $Hklm = 2147483650 $Target = $env:COMPUTERNAME $RegPath = "Software\Microsoft\Windows NT\CurrentVersion" $DigitalID = "DigitalProductId" $Wmi = [WMIClass]"\\$Target\root\default:stdRegProv" $Object = $Wmi.GetBinaryValue($Hklm,$RegPath,$DigitalID) [Array]$DigitalIDvalue = $Object.uValue $ProductName = (Get-itemproperty -Path "HKLM:Software\Microsoft\Windows NT\CurrentVersion" -Name "ProductName").ProductName $CurrentBuild = (Get-itemproperty -Path "HKLM:Software\Microsoft\Windows NT\CurrentVersion" -Name "CurrentBuild").CurrentBuild $CurrentVersion = (Get-itemproperty -Path "HKLM:Software\Microsoft\Windows NT\CurrentVersion" -Name "CurrentVersion").CurrentVersion $PROCESSOR_ARCHITECTURE = (Get-itemproperty -Path "HKLM:SYSTEM\CurrentControlSet\Control\Session Manager\Environment" -Name "PROCESSOR_ARCHITECTURE").PROCESSOR_ARCHITECTURE $RegisteredOwner = (Get-itemproperty -Path "HKLM:Software\Microsoft\Windows NT\CurrentVersion" -Name "RegisteredOwner").RegisteredOwner $USERDOMAIN = (Get-itemproperty -Path "HKCU:Volatile Environment" -Name "USERDOMAIN").USERDOMAIN $ProductID = (Get-itemproperty -Path "HKLM:Software\Microsoft\Windows NT\CurrentVersion" -Name "ProductId").ProductId $DigiID = ConvertTokey $DigitalIDvalue $OSInfo = (Get-WmiObject "Win32_OperatingSystem" | Select Caption).Caption $CSDVersion = "" If($PROCESSOR_ARCHITECTURE -eq "x86") { $OsType = "32 Bit" } Elseif($PROCESSOR_ARCHITECTURE -eq "AMD64") { $OsType = "64 Bit" } If($CurrentVersion -eq 6.1) { $CSDVersion = (Get-itemproperty -Path "HKLM:Software\Microsoft\Windows NT\CurrentVersion" -Name "CSDVersion").CSDVersion } [string]$Value = "Infos zum Betriebssystem: `r`n" ` + "Windows-Edition : $ProductName $OsType $CSDVersion `r`n" ` + "Windows-Build-ID : $CurrentBuild `r`n" ` + "Windows-Versions-ID : $CurrentVersion `r`n" ` + "Prozessor-Architektur : $PROCESSOR_ARCHITECTURE `r`n" ` + "Produkt-ID : $ProductID `r`n" ` + "Windows-ProduktKey : $DigiID `r`n`r`n" ` + "Registrierter Benutzer: $RegisteredOwner `r`n" ` + "Computername : $USERDOMAIN `r`n" $Value $Txtpath = "." If($CurrentVersion -ge 6.2) { New-Item -Path $Txtpath -Name "Windows8_Key.txt" -Value $Value -ItemType File -Force | Out-Null } } Function ConvertToKey($Key) { $Keyoffset = 52 $IsWin8 = [int]($Key[66]/6) -band 1 $HF7 = 0xF7 $Key[66] = ($Key[66] -band $HF7) -bOr (($IsWin8 -band 2) * 4) $i = 24 [String]$Chars = "BCDFGHJKMPQRTVWXY2346789" Do { $Cur = 0 $X = 14 Do { $Cur = $Cur * 256 $Cur = $Key[$X + $Keyoffset] + $Cur $Key[$X + $Keyoffset] = [math]::Floor([double]($Cur/24)) $Cur = $Cur % 24 $X = $X