'Productkey.vbs - Retrieve the Windows Product (CD) Key
'© Doug Knox - rev Aug. 23, 2001.


Option Explicit
Dim ws, boxtitle, regkey1, regkey2, cdkey, vbCR, boxtext, MyBox, winver, winver2

vbCR = Chr(13)

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

boxtitle = "Retrieve Windows 95/98/Me Product Key"

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

winver = ws.RegRead(regkey1 & "VersionNumber")

If winver = "4.00.950" Then
regkey2 = "ProductID"
winver2 = "Windows 95"
elseif winver = "4.00.1111" Then
regkey2 = "ProductID"
winver2 = "Windows 95 OSR2"
elseif winver = "4.03.1214" Then
regkey2 = "ProductID"
winver = "Windows 95 OSR2/USB"
elseif winver = "4.10.1998" then
regkey2 = "ProductKey"
winver2 = "Windows 98"
elseif winver = "4.10.2222" then
regkey2 = "ProductKey"
winver2 = "Windows 98 SE"
else
winver2 = "Windows Me"
regkey2 = "ProductKey"
End If

cdkey = ws.RegRead(regkey1 & regkey2)

boxtext = "Your " & winver2 & " CD Key is:" & vbCR & vbCR

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