Como encontrar vuestra licencia de windows

Foro de discusión para temas relacionados con la tercnología y la informática (software, hardware, ordenadores en general, etc)
Reglas del Foro
Por favor, lee las Normas Básicas del Foro si eres nuevo usuario y vas a postear por 1ª vez. Si quieres, también puedes presentarte aquí (opcional).
Gracias.
Avatar de Usuario
mikel1979
Creador escenarios Train Simulator
Creador escenarios Train Simulator
Mensajes: 984
Registrado: 13 Jun 2012, 11:26
Ubicación: Oviedo
Nombre: Miguel angel

Como encontrar vuestra licencia de windows

#1

Mensaje sin leer por mikel1979 » 08 May 2016, 13:42

Hola amigos:

Pues como bien dice el titulo,aquí os traigo una forma de encontrar vuestra licencia de windows para los que tengáis que formatear el portátil u ordenador o mismamente se os estropee el disco duro y tengáis que reinstalar vuestro sistema operativo que venia de fabrica.Seguramente,muchos ya sabréis que los fabricantes han optado por poner la licencia en la bios o en el uefi,desde que salió windows 8,ningún portátil viene ya con la pegatina de la licencia OEM,así que fisgoneando por Internet,puesto que mi portátil se me estropeo el sistema operativo a la vez que me dañó el disco duro,pues intentando reinstalar el S.O e intentando saber la forma de obtener mi licencia,encontré esta pagina donde viene explicado.

http://mejorantivirusahora.com/cmo-enco ... owershell/

Espero que sea de buena información para vosotros.

Saludos compañeros y buen fin de semana :wink:


Windows 10 - Intel Core I5-6500 CPU 3.20GHz - 16 gb Memoria Ram - Nvidia GeForce GTX 1060 6GB.
Mi canal de youtube: https://www.youtube.com/channel/UC2GJWz ... N16bv-RAbA
Avatar de Usuario
Pinchos
Moderador
Moderador
Mensajes: 4403
Registrado: 27 Nov 2011, 09:50
Ubicación: Hospital de Móstoles
Nombre: Jesús

Re: Como encontrar vuestra licencia de windows

#2

Mensaje sin leer por Pinchos » 08 May 2016, 20:38

Hace algún tiempo encontré un 'script' de Visual Basic para leer la clave de producto de Windows que está alojada en el registro en formato hexadecimal. El 'script' es el siguiente:

Código: Seleccionar todo

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
Os adjunto en este mensaje este 'script' en un paquete comprimido. Descomprimir el archivo que contiene en el escritorio y ejecutarlo desde allí. Te saldrá una ventana con la clave de Windows.

Aun así, si tenéis algún analizador de PC como 'Speccy', también os proporciona la clave.

Muchas gracias por abrir el hilo, porque me he dado cuenta que la clave de Windows 10 me ha cambiado y ya no es la que tenía de Windows 8.1. Si no llego a saberlo y me toca formatear... Glub... :wall:
Adjuntos
WindowsKey.zip
(502 Bytes) Descargado 67 veces


Un saludo 🚂💨
Imagen
- Demasiadas personas tienen opiniones sobre cosas de las que no saben nada. Y cuanto más ignorantes son, más opiniones tienen.
Thomas Hildern. (Fallout: New Vegas)
Avatar de Usuario
Bermúdez
CEO
CEO
Mensajes: 8888
Registrado: 06 Nov 2010, 11:06
Ubicación: Teruel
Nombre: Juan
Contactar:

Re: Como encontrar vuestra licencia de windows

#3

Mensaje sin leer por Bermúdez » 08 May 2016, 21:18

Pues yo estaba en las misma situación, a mí también me debió cambiar al actualizar a Windows 10, no es la misma que tenía en Windows 7. :shock:
Pinchos escribió:Si no llego a saberlo y me toca formatear... Glub... :wall:
Lo mismo digo, si por cualquier causa hubiera tocado formatear... :_
Ya les vale a los de Microsoft, podían haber avisado de que al actualizar a Windows 10 cambiaría la clave. :rolleyes:


totalmod
Mensajes: 271
Registrado: 13 Sep 2013, 17:46

Re: Como encontrar vuestra licencia de windows

#4

Mensaje sin leer por totalmod » 08 May 2016, 22:39

También se puede descubrir la clave de Windows con el siguiente código PowerShell:

Código: Seleccionar todo

Set-ExecutionPolicy RemoteSigned
function Get-WindowsKey {
    ## function to retrieve the Windows Product Key from any PC
    ## by Jakob Bindslet (jakob@bindslet.dk)
    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"
        ## decrypt base24 encoded binary data
        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 -value $target
        $obj | Add-Member Noteproperty Caption -value $win32os.Caption
        $obj | Add-Member Noteproperty CSDVersion -value $win32os.CSDVersion
        $obj | Add-Member Noteproperty OSArch -value $win32os.OSArchitecture
        $obj | Add-Member Noteproperty BuildNumber -value $win32os.BuildNumber
        $obj | Add-Member Noteproperty RegisteredTo -value $win32os.RegisteredUser
        $obj | Add-Member Noteproperty ProductID -value $win32os.SerialNumber
        $obj | Add-Member Noteproperty ProductKey -value $productkey
        $obj
    }
}
Get-WindowsKey
O si no se tiene ganas de picar código... también he usado el "ProduKey" y me ha ido bastante bien.


fepep
Mensajes: 156
Registrado: 31 Oct 2012, 20:38
Ubicación: Zaragoza

Re: Como encontrar vuestra licencia de windows

#5

Mensaje sin leer por fepep » 09 May 2016, 11:47

Hola
Tengo W10 y ninguno de los procedimientos que se describen en la Pág. web que apunta Mikel 1979 me da resultado alguno.
No he probado "speccy" ni "produkey"
pero Lo que sí me funciona es el Script de Pinchos.
Gracias Pinchos


Avatar de Usuario
Bermúdez
CEO
CEO
Mensajes: 8888
Registrado: 06 Nov 2010, 11:06
Ubicación: Teruel
Nombre: Juan
Contactar:

Re: Como encontrar vuestra licencia de windows

#6

Mensaje sin leer por Bermúdez » 09 May 2016, 12:05

Lo mismo por aquí. Los procedimientos indicados en la página enlazada por mikel no me ha funcionado ninguno. Sí que me han funcionado los scripts proporcionados por Jesús y Fernando. :ok:


Avatar de Usuario
mikel1979
Creador escenarios Train Simulator
Creador escenarios Train Simulator
Mensajes: 984
Registrado: 13 Jun 2012, 11:26
Ubicación: Oviedo
Nombre: Miguel angel

Re: Como encontrar vuestra licencia de windows

#7

Mensaje sin leer por mikel1979 » 10 May 2016, 14:50

Hola amigos:

A mi si me ha funcionado,también es verdad que si lo hago escribiendo los comandos en el símbolo de sistema no me funciona pero si hago un copia-pega,si me funciona.


Windows 10 - Intel Core I5-6500 CPU 3.20GHz - 16 gb Memoria Ram - Nvidia GeForce GTX 1060 6GB.
Mi canal de youtube: https://www.youtube.com/channel/UC2GJWz ... N16bv-RAbA
Responder

Volver a “Tecnología - Informática”