Ako odinštalovať win10 a ponechať si klúč

U krabicové verze je klíč napsán na kartičce.

klúč mám.. ale neviem ako ho odinstalujem lebo to dané SSD by som rád dal do nového PC kde sú iné komponenty a neviem či by to fungovalo a ani neviem ako odinstalujem ten klúč s tohto softvéru a dám do nového

Myslím že by se rozhodně nic nepoškodilo, jelikož se ti automaticky WINDOWS nainstaluje hned do nového PC, jestliže tam dáš ten daný SSD disk, a také není okontrolováno jestli váš WIN není jen jednorázový, doporučoval bych ho nechat na disku,

a) přenos licence můžeš udělat přes MS účet.
b) licenci (klíč) můžeš odinstalovat příkazem slmgr:

Výpis stavu licence: slmgr.vbs /dlv
Výpis expirace licence: slmgr.vbs /xpr
Odebrání licence: slmgr.vbs /upk !!!
Výmaz licence z registry (udělat po odebrání): slmgr.vbs /cpky !!!
Výpis ID instalace: slmgr.vbs /dti
Aktivace po získání kódu: slmgr.vbs /atp ACTIVATIONID
Online aktivace: slmgr.vbs /ato

Nepíšeš, akú verziu máš W10, lebo OEM alebo Inovácia z W7, je viazaná na ID HW, ktoré si eviduje server MS a zakaždým odoslaním Telemetrických dát či kontrola záplat WU ich verifikuje s vlastnou databázou. Musíš mať prenosnú licenciu verzie W10.

Dá sa spraviť Transfer systémových oddielov alebo (klon) systému.

ID nového PC (HW) sotva doma, na kolene dokážeš vyčenčovať, je zapísaný vo firmware.

Skript na zistenie licencie a ID HW vložený do Notepad.exe, ktorému zadáš príponu vbs pri uložení napríklad s názvom, KEY.vbs
-----------------------------------

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\WindowsKey.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function