Si perdió u olvidó dónde había almacenado su clave de producto de Windows, tengo una solución para usted. Hoy veremos cómo se puede usar un simple script VBS para mostrarnos la clave de producto de una copia instalada de Windows 10, Windows 8 o Windows 7. Es una solución simple para extraer su clave de producto del sistema operativo instalado en su PC sin utilizando cualquier software de terceros. Aquí vamos.
Anuncio
De hecho, antes publiqué un solución similar que utilizó PowerShell. pero muchos usuarios se quejaron de que les fallaba. PowerShell puede requerir habilidades de usuario adicionales y ajustes adicionales para ejecutar cmdlets sin firmar.
¿Qué significa sb en la historia de Snapchat?
En comparación con PowerShell, esta solución VBScript es casi perfecta. Todo lo que necesita hacer es hacer clic en el archivo. A ver su clave de producto de Windows 10
- Abra el Bloc de notas.
- Copie y pegue el siguiente texto en la ventana del Bloc de notas
Opción Explicit Dim objshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Establecer la ruta de la clave de registro Path =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Valor de la clave de registro DigitalID = objshell.RegRead (Ruta & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Nombre del producto: '& objshell.RegRead (Ruta &' ProductName ') ProductID =' Product ID: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Clave instalada:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Mostrar cuadro de mensaje si se guarda en un archivo Si vbYes = MsgBox (ProductData & vblf & vblf & '¿Guardar en un archivo?', VbYesNo + vbQuestion, 'Copia de seguridad de la información clave de Windows') luego Guardar ProductData End If 'Convertir binario en caracteres Función ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Por último, keypart1, inserte 'Compruebe si el sistema operativo es Windows 8 isWin8 = (Key (66) 6) And 1 Key (66) = (Tecla (66) Y & HF7) O ((isWin8 Y 2) * 4) i = 24 Mapas = '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 Mientras i> = 0 If (isWin8 = 1) Then keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Reemplazar (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Entonces KeyOutput = insertar & 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 ')' Obtener el nombre de usuario actual UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Crear un archivo de texto en el escritorio fName =' C: Users '& UserName &' Desktop WindowsKeyI nfo.txt 'Establecer fso = CreateObject (' Scripting.FileSystemObject ') Establecer txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close Fin Función
- Guarde el texto anterior en un archivo con la extensión '.vbs' en el escritorio.
Consejo adicional: para asegurarse de guardar el archivo correctamente con la extensión '.vbs', puede escribir su nombre entre comillas dobles, por ejemplo, 'BackupWindowsKey.vbs'.
- Ahora abra su archivo BackupWindowsKey.vbs
- ¡Voila, su clave de producto se muestra en la pantalla!
Haga clic aquí para descargar el archivo BackupWindowsKey.vbs
Probé este truco en Windows 7, Windows 8 y Windows 10. Funciona perfectamente en todos los sistemas operativos mencionados. Créditos: nononsence @ MDL .