One-click backup win7, win8, win10 activation code

free activation this may be directly upgraded more insurance, because in general, the system before the upgrade is activated, although everyone activates the system can be described as "all" It’s a big road to Rome, but Microsoft doesn’t care about anything, it’s given Win10 in an active state. However, using a new installation and then entering the product key may be more appropriate for a legitimate user, or a user who has a legitimate key in his or her hands (at least the key is not blocked). If you can confirm that there is no problem with the key in your hand, try the IT home approach. The operation is very simple, just need to save the following code using Notepad, etc. in .vbs format (file name is self-explanatory), double-click to run, suitable for Win7/Win8.1/Win10 system.

As shown above, save the following code to a text file and change the extension to .vbs and double click!

============================================================================================================ , 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 = "System 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 & "Do you want to save the key to a file?&quo t;, vbYesNo + vbQuestion, "Windows Key Information") then

Save ProductData

End If

'Convert binary to chars

Function ConvertToKey(Key)

Const KeyOffset = 52

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

'Check if OS is Windows 10

isWin10 = (Key(66) \\ 6) And 1

Key(66) = (Key(66) And &HF7) Or ((isWin10 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)< Br>

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

If (isWin10 = 1) Then

keypart1 = Mid(KeyOutput, 2, Last)

insert = "N"

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

If Last = 0 Then 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)

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%")< Br>

'Create a text file on desktop

fName = "C:\\Users\\" & UserName & "\\Desktop\\Windows Key Backup.txt"

Set fso = CreateObject("Scripting.FileSystemObject")

Set txt = fso.CreateTextFile(fName)

txt.Writeline Data

txt.Close

End Function

========================================= Code, you can back up the current system activation code