Or the Belarc Advisor. Andy
-----Original Message----- From: Talk [mailto:talk-bounces+andrew.baracco=va....@lists.window-eyes.com] On Behalf Of Christopher-Mark Gilland via Talk Sent: Friday, August 07, 2015 6:49 AM To: j...@vi-ability.demon.co.uk; Window-Eyes Discussion List Subject: [EXTERNAL] Re: How Do I Locate And Get To My Windows 7 Product Key Wouldn't an easier way be to get the Keyfinder software from Magic Jellybean? Chris. ----- Original Message ----- From: "Joe Paton via Talk" <talk@lists.window-eyes.com> To: <northstar1...@okiespirit.net>; "Window-Eyes Discussion List" <talk@lists.window-eyes.com> Sent: Friday, August 07, 2015 9:37 AM 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/clgilland0 7%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/andrew.bar acco%40va.gov. 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