Diddo. That's exactly how I'd do it. No need for a VB script, although,
that said, it is! kind a cool you can do it that way, for the more techies
as myself.
Chris.
----- Original Message -----
From: "net bat via Talk" <talk@lists.window-eyes.com>
To: <j...@vi-ability.demon.co.uk>; "Window-Eyes Discussion List"
<talk@lists.window-eyes.com>
Sent: Friday, August 07, 2015 11:49 AM
Subject: Re: How Do I Locate And Get To My Windows 7 Product Key
or you can run a free program keyfinder from magical jelly bean. it does
not have to be installed. just run the program from the folder it is saved
to.
-----Original Message-----
From: Joe Paton via Talk
Sent: Friday, August 07, 2015 6:37 AM
To: northstar1...@okiespirit.net ; Window-Eyes Discussion List
Subject: Re: How Do I Locate And Get To My Windows 7 Product Key
Hi. If you are still looking for your product key, then this might help.
in this email, below the wordws, "product key code starts here, and up to
"and including the words end function"
copy all the text, and save it as a .vbs file.
Then run it.
Your key will be displayed.
Joe
Product key text starts here.
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
_______________________________________________
Any views or opinions presented in this email are solely those of the
author and do not necessarily represent those of Ai Squared.
For membership options, visit
http://lists.window-eyes.com/options.cgi/talk-window-eyes.com/netbat%40comcast.net.
For subscription options, visit
http://lists.window-eyes.com/listinfo.cgi/talk-window-eyes.com
List archives can be found at
http://lists.window-eyes.com/private.cgi/talk-window-eyes.com
_______________________________________________
Any views or opinions presented in this email are solely those of the
author and do not necessarily represent those of Ai Squared.
For membership options, visit
http://lists.window-eyes.com/options.cgi/talk-window-eyes.com/clgilland07%40gmail.com.
For subscription options, visit
http://lists.window-eyes.com/listinfo.cgi/talk-window-eyes.com
List archives can be found at
http://lists.window-eyes.com/private.cgi/talk-window-eyes.com
_______________________________________________
Any views or opinions presented in this email are solely those of the author
and do not necessarily represent those of Ai Squared.
For membership options, visit
http://lists.window-eyes.com/options.cgi/talk-window-eyes.com/archive%40mail-archive.com.
For subscription options, visit
http://lists.window-eyes.com/listinfo.cgi/talk-window-eyes.com
List archives can be found at
http://lists.window-eyes.com/private.cgi/talk-window-eyes.com
