Mit folgendem VBA-Skript kann der Produkt-Key für Windows 7 ausgelesen werden:
Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = "BCDFGHJKMPQRTVWXY2346789" Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur Key(x + KeyOffset) = (Cur \ 24) And 255 Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput If (((29 - i) Mod 6) = 0) And (i <> -1) Then i = i -1 KeyOutput = "-" & KeyOutput End If Loop While i >= 0 ConvertToKey = KeyOutput End Function
Die Datei z.B. auf dem Desktop speichern und mit der Endung vbs versehen. Also z.B. produktkey.vbs.
Anschließend die Datei mit einem Doppelklick ausführen. Dann sollte sich ein Fenster mit dem Produkt-Key öffnen.
Schreib als Erster einen Kommentar