Win7 Key anhand der COA ermitteln ?

Regor

Ensign
Registriert
Aug. 2012
Beiträge
233
Hallo Jungs und Mädchen,

gibt es bei Microsoft eine Möglichkeit anhand einer COA Nummer den damit verbundenen Key herauszufinden ? Mir liegen die refurbished Aufkleber vor auf denen nur die COA aufgedruckt ist. Es handelt sich um PC's einer gemeinnützigen Organisation. Leider wurde am Zielort die aktivierte Installation mit einem anderen Win7 Image überschriegen ohne die Keys vorher zu sichern.
 
Wenn auf dem CoA-Label kein Key drauf steht, dann ist der im BIOS/UEFI hinterlegt. Also einfach die passende Windows Version installieren, und fertig.
 
Ne nicht ganz Necareor. Es gibt Microsoft Authorized Refurbished Geräte (meist Leasing-Teile von großen Firmen, die ursprünglich mit XP z.B. ausgeliefert wurden, von den Firmen zurückgingen dann nach einiger Zeit und statt wegzuschmeißen vom autorisierten Händler mit einer neuen Windows 7 Version auf ner frischen Platte (wie die werden grundsätzlich zerstört) ausgeliefert wurden bzw. sehr günstig an eben solche gemeinnützige Organisationen gehen). Die haben dann tatsächlich nur CoAs drauf wo kein ProductKey steht. In dem Fall -> Arschkarte
 
leider nein @ Necareor ... das sind gebrauchte PC's die im Rahmen eines refurbished Programms an andere gemeinnützige Organisationen abgegeben werden, meist 3-4 Jahre alte Dualcore Maschinen von HP oder Fujitsu

notfalls muss ich mich an die ausliefernde NGO wenden falls es keinen anderen Weg gibt
 
Zuletzt bearbeitet:
@necareor: Du verwechselst da was - dein beschriebenes Vorgehen funktioniert nur bei Win8 aufwärts. Bei Win7 gab es das nicht.
 
Ouh okay sorry, wusste nicht, dass es bei Windows 7 überhaupt CoA's ohne Key gab. Hatte gedacht, dass es sich hier um Windows 8/10-Rechner handelt, welche mit vorinstalliertem Windows 7 daherkamen. Also mit den neuen CoA-Labels (wenn man sie überhaupt noch so nennen darf...)
 
Und bei einem Refurbished-PC bekommt man keinen Wisch dazu, auf dem der Key steht?

Auf die schnelle hab ich mal das gefunden:
"What does the end user customer receive?
When a Registered Refurbisher distributes a refurbished PC to an end user customer, they must include the following:
The PC preinstalled with the program license and the original pre-existing COA still affixed to the PC.
A new program COA affixed to the PC (or server if supplying Windows Multipoint Server 2011 Premium).
A product key information sheet including the product key for that PC or server.
Also:
If the license is a commercial license, recovery media will be included and the Registered Refurbisher may also include a hard disk based recovery image if they wish.
If the license is a citizenship license, there is no recovery media but the Registered Refurbisher may include a hard disk based recovery image if they wish.
If the license is for Windows Multipoint Server, you must also include the Client Access License card supplied in the product pack.
Depending on the product supplied, printed license terms may also be included."

Quelle
 
Habe erst letzten bei einem Lenovo T410 das kostenlose Win10 installiert, der Besitzer hat das Teil Online bei einem Händler der MAR ist gekauft und auf dem CoA steht ganz normal der Win7 Home Lizenzkey (nur eben auch der Hinweis das es sich um ein MAR Lizenz handelt).

Die MAR/MRR Lizenzen werden ja in kommerzielle und Lizenzen für gemeinnützige Organisationen unterschieden, für letztere muss man aber einen Antrag stellen und bestimmte Bedingungen auch erfüllen damit man die bekommt. Könnte also sein das die Aktivierung dieser Lizenzen anders abläuft damit nicht berechtigte die gar nicht nutzen können.
 
Du kannst probieren mit einem Recovery-Tool die alte Windows Partition wiederherzustellen oder nach Dateien suchen und hoffen, dass du die Datei SOFTWARE (ohne Endung) im Ordner C:\Windows\System32\config wieder erlangst.

Fall es geklappt hat kannst du an einem Rechner deiner Wahl den Key folgendermaßen auslesen (Pfade anpassen!):
  • CMD als Admin starten
  • reg load HKLM\TempKey C:\temp\SOFTWARE
Nun einfach folgenden Code in eine Textdatei kopieren, als WinKeyBackup.vbs abspeichern und das VBScript per Doppelklick ausführen.
HINWEIS: Habe den Pfad in Zeile 9 hier im Code entsprechend abgeändert. Standardmäßig lautet er: "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"
Code:
Option Explicit 

' Quelle: 
' http://winaero.com/blog/how-to-view-your-product-key-in-windows-10-windows-8-and-windows-7/

Dim objshell,path,DigitalID, Result 
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\TempKey\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
 
Zuletzt bearbeitet:
Zurück
Oben