Cómo explorar la clave de producto en Windows 10, 8, 7 usando VBScript

Explora la clave de producto en Windows 10, 8, 7 . Si has colocado la clave de producto de este sistema operativo de Microsoft y no puedes recuperarla, entonces tenemos un remedio. Puedes utilizar el VBScript para hacer lo mismo de forma muy sencilla.

Daremos aquí el VBScript por lo que el trabajo restante para ti será sólo hacer un doble clic. Además, también escribiremos los pasos para Explorar la Clave de Producto en Windows 10, 8, 7 .

Cómo explorar la clave de producto en Windows 10, 8, 7

Paso 1 – Abre el Bloc de notas con el método con el que te sientas cómodo.

Paso 2 – Copia el trozo de código del bloque de abajo y pégalo en el Bloc de notas.

Opción explícita

Dim objshell,path,DigitalID, Resultado

Set objshell = CreateObject(“WScript.Shell”)

$0027Establece la ruta de la clave del registro

Ruta = “HKLMSOFTWARENMicrosoftNWindows NTNCurrentVersionN”

$0027Valor de la clave del registro

DigitalID = objshell.RegRead(Path & “DigitalProductId”)

Dim ProductName,ProductID,ProductKey,ProductData

$0027Obtener ProductName, ProductID, ProductKey

ProductName = “Nombre del producto: ” & objshell.RegRead(Path & “ProductName”)

ProductID = “ID del producto: ” & objshell.RegRead(Path & “ProductID”)

ProductKey = “Clave instalada: ” & ConvertToKey(DigitalID)

ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey

$0027Muestra el messbox si se guarda en un archivo

Si vbSí = MsgBox(ProductData & vblf & vblf & “¿Guardar en un archivo?”, vbSíNo + vbPregunta, “Copia de seguridad de la información de la clave de Windows”) entonces

Guarda los datos del producto

End If

$0027Convierte los binarios en caracteres

Función ConvertToKey(Key)

Const KeyOffset = 52

Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert

$0027Comprueba si el sistema operativo es Windows 8

Leer también:  Cómo encontrar la versión de Windows instalada en el sistema

isWin8 = (Tecla(66) 6) N y 1

Tecla(66) = (Tecla(66) Y &HF7) O ((isWin8 Y 2) * 4)

i = 24

Mapas = “BCDFGHJKMPQRTVWXY2346789”

Hacer

Actual= 0

j = 14

Hacer

Corriente = Corriente* 256

Corriente = Clave(j + KeyOffset) + Corriente

Clave(j + KeyOffset) = (Actual 24)

Corriente=Corriente Mod 24

j = j -1

Bucle Mientras j>= 0

i = i -1

ClaveSalida = Mid(Mapas,Actual+ 1, 1) & ClaveSalida

Último = Actual

Bucle Mientras i>= 0

Si (isWin8 = 1) Entonces

keypart1 = Mid(KeyOutput, 2, Last)

inserto = “N”

KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)

Si Last = 0 Entonces 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)

Fin de la función

$0027Guarda los datos en un archivo

Función Guardar(Datos)

Dim fso, fName, txt,objshell,UserName

Set objshell = CreateObject(“wscript.shell”)

$0027Obtener el nombre de usuario actual

NombreUsuario = objshell.ExpandEnvironmentStrings(“%NombreUsuario%”)

$0027Crea un archivo de texto en el escritorio

fName = “C:NUsersN” & UserName & “NDesktopNWindowsKeyInfo.txt”

Set fso = CreateObject(“Scripting.FileSystemObject”)

Set txt = fso.CreateTextFile(fName)

txt.Escribir datos

txt.Close

Fin de la función

Paso 3 – Haz clic en Archivo en el Bloc de notas seguido de Guardar .

Paso 4 – Cuando aparezca el cuadro de diálogo Guardar como , dale un nombre a tu elección pero, recuerda escribir la extensión del archivo .vbs. Por ejemplo, si escribes el nombre producto y al lado .vbs, el nombre completo del archivo será producto.vbs.

Paso 5 – Por último, pulsa el botón Guardar visible en la parte inferior del cuadro de diálogo. Así, el archivo .vbs se guardará en la ubicación que desees.

Paso 5 – Por último, haz doble clic en el archivo recién creado (para mí es product.vbs). En consecuencia, se materializa una ventana emergente en la pantalla que revela cuál es la clave de producto de tu Windows 10, 8, 7.

Leer también:  Cómo cambiar el idioma por defecto en Windows 10

Paso 6 – Pulsa el botón Ok en el Pop up para obtener windowskeyinfo.txt mostrando los detalles del producto en un bloc de notas.

Simplemente descarga y ejecuta VBScript

Si no quieres tomarte la tensión de seguir estos pasos, hemos colocado el VBScript a continuación. Sólo tienes que hacer clic en el botón de descarga para cogerlo en tu Windows. Una vez terminada la descarga, haz doble clic para ejecutarlo.

Por lo tanto, el archivo .vbs funciona como un sueño para explorar la clave de producto en Windows 10, 8, 7.

 
  

Categorías blog

Deja un comentario

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies ACEPTAR

Aviso de cookies