productkey.vbs - Find the Product (CD) Key in Win95/98

  Doug Knox - rev 12/02/99

Productkey.vbs is a Visual Basic Script file which will check your System Registry
and retrieve the product (CD) Key that was used when you installed Windows
95/98/98SE. This is the 25 digit key with the format
XXXXX=XXXXX-XXXXX-XXXXX-XXXXX

To use: Download productkey.vbs and save it to your hard drive. Double-click the
productkey.vbs file and the CD Key you used to setup Windows will be displayed.

Note: I assume no responsibility at all for your use of these VBS files. You should
always ensure that you have a good working backup of your System Registry before
tampering with it.

Regards,
Doug Knox
****************
'ProductID.vbs - Retrieve the Windows Product (CD) Key

'© Doug Knox - dbknox@mediaone.net - rev 21 NOV 1999.

Option Explicit:Dim ws, boxtitle, regkey1, cdkey, vbCR, boxtext, MyBox

vbCR = Chr(13)

Set ws = WScript.CreateObject("WScript.Shell")

boxtitle = "Retrieve Windows 95/98 Product Key"

regkey1 = "HKLM\Software\Microsoft\Windows\CurrentVersion\"

cdkey = ws.RegRead(regkey1 & "ProductKey")

boxtext = "Your Windows 95/98 Product Key is:      " & vbCR & vbCR

MyBox = MsgBox(boxtext & cdkey, 4160, boxtitle)