Copy between lines and paste to notepad text file called See_Product_Key.txt
Change name of file See_Product_Key.txt TO See_Product_Key.vbs
Click on See_Product_Key.vbs icon
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Cur = 0
x = 14
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
Loop While i >= 0
ConvertToKey = KeyOutput
So - It works great.
Now, how might this be useful to someone such as myself, who has a PC with an OEM edition of Windows 7 Home Premium (updated to SP1) and a set of recovery disks to reset the machine back to day one - but no Windows installation disk ?
Windows 7 SP1 Full Installation ISOs
Home Premium Edition down the page
Use Rufus and make installation media.
So you're saying that the key which is returned when I run that script will allow me to do a clean install on Windows 7 and it will be a legal, registered copy ?
The ISOs are Legal and your Key is Legal.
Remember this is what we would do with folks on Old HTG who didn't have a recovery disc.
Thanks very much!
I have bookmarked the link to the instructions.
Fortunately, I have never had to re-install or do a clean install of my OEM version.
But with that script and the link, I now have a great foundation in case the need ever arises.
I'm really learning a lot of great stuff here this week
National Battery Day is February 18th !
Just don't add no 'salt to that battery, or u might catch a charge!
A long time ago, I worked for this company when the Logo looked like this (LOL)
Tried it just for kicks - I have everything on hand - and returned a different key than the one from the sticker in the back of the PC