Edited by hawkzilla, 02 August 2013 - 10:03 PM.
Windows 7 Home Premium Reinstall disc
#1
Posted 02 August 2013 - 10:02 PM
#2
Posted 03 August 2013 - 02:27 AM
The question now is what type of Windows 7 disk is this, for example an unbranded OEM or Retail?
#3
Posted 03 August 2013 - 08:02 AM
#4
Posted 03 August 2013 - 08:12 AM
Does the disk look like this irrespective that it's a 64 bit version?
#5
Posted 03 August 2013 - 08:49 AM
#6
Posted 03 August 2013 - 09:01 AM
Well let's have a look at the pictures for the disk you have and the number that is on the envelope when you get home Hawk, how's that mate?
#7
Posted 03 August 2013 - 09:33 AM
#8
Posted 03 August 2013 - 09:36 AM
#9
Posted 03 August 2013 - 02:19 PM
#10
Posted 03 August 2013 - 04:09 PM
To be safe, record the existing key. This Visual Basic script will show it to you:
Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalID = WshShell.RegRead(key & "DigitalProductId")
ProductName = "Product Name: " & WshShell.RegRead(Key & "ProductName") & vbNewLine
ProductID = "Product ID: " & WshShell.RegRead(Key & "ProductID") & vbNewLine
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductID = ProductName & ProductID & ProductKey
If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Windows Key Information") then
Save ProductID
End if
Function ConvertToKey(Key)
Const KeyOffset = 52
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
X = 14
Do
Cur = Cur * 256
Cur = Key(X + KeyOffset) + Cur
Key(X + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
X = X -1
Loop While X >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
Last = Cur
Loop While i >= 0
If (isWin8 = 1) Then
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
End If
a = Mid(KeyOutput, 1, 5)
b = Mid(KeyOutput, 6, 5)
c = Mid(KeyOutput, 11, 5)
d = Mid(KeyOutput, 16, 5)
e = Mid(KeyOutput, 21, 5)
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function
Function Save(Data)
Const ForWRITING = 2
Const asASCII = 0
Dim fso, f, fName, ts
fName = "Windows Key.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile fName
Set f = fso.GetFile(fName)
Set f = f.OpenAsTextStream(ForWRITING, asASCII)
f.Writeline Data
f.Close
End Function
Copy everything in red and paste in a notepad window. Save the file to your Desktop as "ShowKey.vbs" (include the double quotes). Double click on it to run it then click the Save button. A Windows Key.txt file will be created on your Desktop. Print it or save it somewhere not on your computer. Then if the reinstall asks, you can try that key.
#11
Posted 03 August 2013 - 04:26 PM
edit: I got it thanks. I right clicked the showkey file icon on the desktop and opened it with command prompt. and the product id and installed key popped up on my screen.
one or two more things. so do I put the disc in the cd/dvd drive and restart system or just put it in and go from there. also how long does the reinstall usually take and after the reinstall how hard or easy is it to get all the driver updates?
thanks for all the help guys, you rock.
Edited by hawkzilla, 03 August 2013 - 04:47 PM.
#12
Posted 05 August 2013 - 01:34 AM
The Dell Studio originally had Vista on as we know so when the motherboard and hard drive was replaced and windows 7 installed instead was this work done by the guy in the shop who also provided the Dell reinstallation disk?
Similar Topics
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users