Guardar tu Clave de Producto de Windows

Hola que tal amigos pues en esta ocasión vamos a ver un ejemplo de como puedes volver a recordar tu clave de producto en tu equipo técnico. para ello los amigos de Pureinfotech.com nos comparten un script el cual nos muestra la clave de producto que estamos utilizando para nuestro equipo.

Este script lo podemos utilizar para equipos que tienen Windows Insiders, o para versiones de Windows Home,Pro o Ultima. Para versión Enterprise NO es funcional

Sin embargo, siempre se recomienda conocer la clave de producto de Windows en caso de que durante una actualización algo salga mal, como un fallo del disco duro, o porque queremos hacer una instalación limpia del sistema operativo.

Por supuesto, no son producto de software buscador de claves, pero nunca se sabe si esas soluciones se instale algún tipo de adware o malware en nuestro equipo.

Lo primero que haremos sera copiar el siguiente código y guardarlo como .vbs.

Set WshShell = CreateObject("<span class="skimlinks-unlinked">WScript.Shell</span>")
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 &gt;= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) &amp; KeyOutput
If (((29 - i) Mod 6) = 0) And (i &lt;&gt; -1) Then
i = i -1
KeyOutput = "-" &amp; KeyOutput
End If
Loop While i &gt;= 0
ConvertToKey = KeyOutput
End Function

Set WshShell = CreateObject("<span class="skimlinks-unlinked">WScript.Shell</span>")

MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)

Const KeyOffset = 52

i = 28

Chars = "BCDFGHJKMPQRTVWXY2346789"

Cur = 0

x = 14

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

Ahora para ver la ejecución del mismo, en este ejemplo veamos como trabaja bajo un sistema operativo Windows 7 Enterprise. Vemos que este script no es compatible para estas versiones.