Hey amigo, tuve exactamente el mismo problema.
Accidentalmente desinstalé mi id de producto y la clave mediante el uso de "slmgr/udk" en el símbolo del sistema, pero no hagas eso.
Sigue las siguientes instrucciones y es compatible con windows 7/8/8.1/10.
Pero no necesitas nada. Simplemente haz lo siguiente:
- abre el bloc de notas
- Copia y pega el siguiente texto en la ventana del bloc de notas.
Opción explícita
Dim objshell,path,DigitalID, Resultado
Set objshell = CreateObject("WScript.Shell")
'Establezca la ruta de la clave del registro
Ruta = "HKLMSOFTWAREMicrosoftWindows NTCurrentVersion"
'Valor de la clave del registro
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Obtenga ProductName, ProductID, ProductKey
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Mostrar messbox si guardar en un archivo
Si vbYes = MsgBox(ProductData & vblf & vblf & "¿Guardar en un archivo?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
Save ProductData
End If
'Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Comprobar si el SO es Windows 8
isWin8 = (Key(66) 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current 24)
Current=Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Actual+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0
If (isWin8 = 1) Then
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
End If
ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
End Function
'Guardar datos en un archivo
Función Guardar(Datos)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Obtenga el nombre de usuario actual
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Cree un archivo de texto en el escritorio
fName = "C:NUsers" & UserName & "NDesktopWindowsKeyInfo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function
3. Guarde el texto anterior en un archivo con la extensión ".vbs" en el Escritorio.
Consejo adicional: Para asegurarse de que guarda el archivo correctamente con la extensión ".vbs", puede escribir su nombre entre comillas dobles, por ejemplo, "BackupWindowsKey.vbs".
4. Ahora abra su "archivo BackupWindowsKey.vbs".
5. Voilá, su clave de producto se muestra en la pantalla.
