• Welcome to Overclockers Forums! Join us to reply in threads, receive reduced ads, and to customize your site experience!

UEFI question... installing OS?

Overclockers is supported by our readers. When you click a link to make a purchase, we may earn a commission. Learn More.

TransformedBG

Member
Joined
Jul 24, 2013
So im uprgading my hd, and im just going to do a fresh install of windows on it.. i have always just slapped the cd in and gone from there... Now i have the free upgrade to windows 10, so my question is.

Should i just make a UEFI copy of the windows 10.. ie take the cd i burned and make an iso out of it, then use rufus to make it a UEFI boot version... then take the key that is generated with this copy and try and install it.. or should i make a copy of the windows 7 make it UEFI bootable, then install the UEFI version upgrade of windows 10 on top of that?


and i got my windows 10 key by opening up notepad and copy pasting the following code in to it. Saved the file as Key Gen.vbs and ran it.. it pops up a window that allows you to see you key and save the information..
Code:
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
 
Last edited:

ATMINSIDE

Sim Racing Aficionado Co-Owner
Joined
Jun 28, 2012
If you already have the key, you'll just need to call and activate once your upgrade is done if you're changing motherboards.
 
OP
TransformedBG

TransformedBG

Member
Joined
Jul 24, 2013
If you already have the key, you'll just need to call and activate once your upgrade is done if you're changing motherboards.

welll ill be installing it on the m.2 drive im getting... so im assumming your just saying ill need to just make a UEFI bootable windows 10 and just put the key in?