Cómo encontrar la clave de producto de Windows 10 utilizando VB Script

  Esta publicación le mostrará cómo encontrar la clave de producto de Windows 10 utilizando un script VB. Pero tengo que añadir que esto funciona en Windows 8,1, Windows 7 y versiones anteriores también. Si por alguna razón usted necesita para averiguar su licencia de Windows o serial, entonces este post es seguro que le ayudará a encontrar la clave de producto de Windows 10.
Abra un bloc de notas y copie y pegue el siguiente:

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

En el cuadro de diálogo Guardar como, seleccione todos los archivos y guarde este archivo como un archivo. vbs, dándole cualquier nombre adecuado como Keyfinder. vbs
Ahora ejecute este archivo y verá la clave de producto de Windows 10.
Fuente de información y enlace: TheWindowsClub

                                                      

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjkL-ZSLhlrDX_YAzCVTlDOAaNjB2GpCJrVHAFmAu7m4g2zdKY8yeu29H7P8H83JVIDYSSxXz18pFGSsyepxDkPM7dDtR5kr_29SpILfgGyizZHsmkhcnjrwy1z5jzPaN5NgYi-0sD6PU6-/s1600/product.png