Jeg har en HDD som kommer fra en bærbar, da bærbaren døde fuldkommen, ville jeg gerne trække W10 nøglen ud.
Jeg har forsøgt med ProduKey, men den kan ikke finde ud af og læse fra anden HDD ud over min hoved/ min egen nøgle. Recover Keys er forsgøt, men jeg betaler ikke mere end koster og køre en billig nøgle, for noget jeg skal bruge en gang.
Er der nogen som kender en gratis version, om det så er trial version, som dur til denne opgave?
Men selvom du får den ud, så kan den alligevel ikke bruges. Den er bundet til bundkortet fra den døde bærbar, og du kan ikke aktivere en anden windows 10 med nøglen.
Nå, underligt, har 3 maskiner her hjemme som køre på døde bærbar nøgler... Så tænker jeg prøver lykken med endnu en ;)
Ikke nødvendigvis
MazdaMadsen skrev d. 11-10-2020 21:05:31
Men selvom du får den ud, så kan den alligevel ikke bruges. Den er bundet til bundkortet fra den døde bærbar, og du kan ikke aktivere en anden windows 10 med nøglen.
ved ikke kan du kan bruge AIDA 64 til den opgave.
MazdaMadsen skrev d. 11-10-2020 21:05:31
Men selvom du får den ud, så kan den alligevel ikke bruges. Den er bundet til bundkortet fra den døde bærbar, og du kan ikke aktivere en anden windows 10 med nøglen.
windows 7-8 nøgle,key virker med nyt bundkort
https://www.howtogeek.com/2660...
Hmm. Brug det her og gem som .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
If (isWin8 = 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%")
'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