Cómo encontrar la clave de producto Windows perdido (1 / 4 paso)

Paso 1: Copiar y pegar lo siguiente en un bloc de notas

Set WshShell = CreateObject("WScript.Shell")

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

Función ConvertToKey(Key)

Const KeyOffset = 52

i = 28

Caracteres = "BCDFGHJKMPQRTVWXY2346789"

Hacer

CUR = 0

x = 14

Hacer

CUR = Cur * 256

CUR = clave (x + KeyOffset) + Cur

Clave (x + KeyOffset) = (Cur \ 24) y 255

CUR = Cur Mod 24

x = x -1

Bucle mientras x > = 0

i = i -1

KeyOutput = Mid (caracteres, Cur + 1, 1) & KeyOutput

Si (((29-i) Mod 6) = 0) y (i <> -1) entonces

i = i -1

KeyOutput = "-" & KeyOutput

End If

Bucle mientras > = 0

ConvertToKey = KeyOutput

End Function