Una copia de seguridad clave Win7, Win8, código de activación win10

activación gratuita de este asunto todavía puede ser actualizado directamente más seguro, ya que las actualizaciones del sistema se activan antes de que el bien general, a pesar de la forma en que activan el sistema puede ser descrito como y " Todos los caminos llevan a Roma y " ahora, Microsoft generales no importa nada, que han dado un Win10 activo. Pero con la nueva instalación de entrar en el camino clave de producto puede ser más adecuado para los usuarios genuinos, o tienen sus manos la clave de usuario legítimo (clave no ha sido prohibido por lo menos) a. Si no puede confirmar las manos clave del problema, probar un método de TI Casa. El funcionamiento es sencillo, sólo tiene que utilizar el siguiente código se guarda como el Bloc de notas .vbs formato (nombre de archivo auto), puede operación de doble clic para sistemas de Win7 /Win8.1 /Win10.

como se muestra arriba, el siguiente código para guardar y extensión en el archivo de texto y, a continuación .vbs doble clic!

========================

Option Explicit

objShell Dim, ruta, DigitalID , dan como resultado

Establecer objShell = CreateObject (" WScript.Shell ")

'Establecer ruta de la clave de registro

path = " HKLM \\ SOFTWARE \\ Microsoft \\ ventanas
NT \\ CurrentVersion \\ "

'Registro de valor clave

DigitalID = objshell.RegRead (Path &" DigitalProductId ")

Dim ProductName, ProductID , ProductKey, ProductData

'Get ProductName, ProductID, ProductKey

ProductName = " nombre del sistema: " &objshell.RegRead (Path &" ProductName ")

ProductID = " Identificación del producto: " &objshell.RegRead (Path &" ProductID ")

ProductKey = " llaves se ha instalado: " &ConvertToKey (DigitalID)

ProductData = ProductName &vbNewLine &ProductID &vbNewLine &ProductKey

'Mostrar messbox si guarda en un archivo

Si vbYes = MsgBox (ProductData &vbLf &vbLf &" guardar la clave a un archivo que &qu? t;, vbYesNo + vbQuestion, " de Windows información clave ") y luego

Guardar ProductData

Fin Si

'Convierte a binario carboniza a

ConvertToKey función (Key)

Const KeyOffset = 52

Dim isWin10, Mapas, i, j, actual, KeyOutput, pasado, keypart1, insertar

'Compruebe si es OS windows 10

isWin10 = (clave (66) \\ 6) y 1