C├│mo ver el n├║mero clave de activaci├│n de Windows 1

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...
(Votos: 0 Promedio: 0)

2 Comentarios

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

Deja un comentario