Cómo ver el número clave de activación de Windows

Si perdió u olvidó donde se había almacenado la clave de producto de Windows, tengo una solución para usted.

Hoy vamos a ver cómo un simple script VBS se puede utilizar para mostrarnos la clave de producto de una copia instalada de Windows 10, Windows 8 o Windows 7.

Se trata de una solución sencilla para extraer la clave del producto del sistema operativo instalado en su PC sin usar cualquier software de terceros.

En realidad, antes he publicado una solución similar que utiliza PowerShell.

pero muchos usuarios se quejaron de que se produce un error.

PowerShell puede requerir habilidades de usuario adicionales y ajustes adicionales para ejecutar cmdlets sin firmar.

En comparación con PowerShell, esta solución en VBScript es casi perfecta.

Como ver la Clave del producto de Windows 10, Windows 8 y Windows 7 1

Todo lo que necesitas hacer es simplemente haga clic en el archivo.

Para ver la clave de producto de Windows 10 hacemos:

  • abrimos Bloc de notas.
  • Copie y pegue el siguiente texto en la ventana Bloc de notas.

Option Explicit

Dim objshell,path,DigitalID, Result
Set objshell = CreateObject(“WScript.Shell”)
‘Set registry key path
Path = “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\”
‘Registry key value
DigitalID = objshell.RegRead(Path & “DigitalProductId”)
Dim ProductName,ProductID,ProductKey,ProductData
‘Get 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
‘Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & “Save to a file?”, 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
‘Check if OS is 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,Current+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0
keypart1 = Mid(KeyOutput, 2, Last)
insert = “N”
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
ConvertToKey = Mid(KeyOutput, 1, 5) & “-” & Mid(KeyOutput, 6, 5) & “-” & Mid(KeyOutput, 11, 5) & “-” & Mid(KeyOutput, 16, 5) & “-” & Mid(KeyOutput, 21, 5)

End Function
‘Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject(“wscript.shell”)
‘Get current user name
UserName = objshell.ExpandEnvironmentStrings(“%UserName%”)
‘Create a text file on desktop
fName = “C:\Users\” & UserName & “\Desktop\WindowsKeyInfo.txt”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function

  • Guarde el texto anterior en un archivo con la extension “.vbs” en el Escritorio. Consejo adicional: Para asegurarse de que usted guarde el archivo correctamente con la extensión “.vbs”, puede escribir su nombre entre comillas, por ejemplo , “WindowsKey.vbs”. También pueden ingresar a http://notepad.cc/share/1HeykKcBsF y tienen el texto para copiar y pegar.
  • Ahora abra su archivo WindowsKey.vbs
  • Voila, se muestra la clave del producto en la pantalla!

Como ver la Clave del producto de Windows 10, Windows 8 y Windows 7 3

He probado este truco en Windows 7, Windows 8 y Windows 10.

Funciona sin problemas en todos los sistemas operativos mencionados.

Valora este artículo para mejorar la calidad de nuestro blog ... 👈👍✌️
Cómo ver el número clave de activación de Windows
3.6 (72%) 5 vote[s]


Noticias Relacionadas

Otros llegaron buscando por:

averiguar clave producto windows 10, VER KEY WINDOWS, como ver clave de producto windows 10, como ver clave de windows 10, como ver la clave de producto de i windows, como ver la clave de producto de windows 10, como ver la key de windows, como ver windows 10 key, donde saber el numero de producto en windows 10, donde ver la clave de producto de windows 10,

2 Respuestas

  1. santino dice:

    no funciona cuando, abro el archivo no aparece el cartel solo se abre el archivo

  2. santino dice:

    y luego me pone error

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *