Where do I find a product key?

Dallar14

Commendable
Jun 15, 2016
34
0
1,530
I have a Sony Vaio laptop and when all laptops upgraded to window 10 we received a free upgrade. Everything was ok until I moved and for six months I didn't use my laptop. Now when I try to use Windows 10 it says its out-dated and to enter my product key. Where do I find a product key?
 
Solution
I've called MS support. Real nice guy spent 3Hrs on the phone, remotely linked to my pc, fixed all the Windows registration errors I had after first upgrade to 10pro from 7pro. It's working so flawlessly now I haven't even bothered to wipe it out and do a fresh install.

I figure it's his job, it's what he gets paid to do, so use him.

The only criticism I had about the whole ordeal was the amount of apologies he tendered. Every other sentence was an apology... Other than that, he was great. Very personable and clear spoken, even being, um, Malay?
Try the attached .vbs file---
Can't attach .vbs files.
Make your own & try it---

'Option Explicit
On Error Resume Next
Dim OEM , objWMIService , colItems , objItem , verItems, ver , name
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set verItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_OperatingSystem",,48)
For Each objItem in verItems
ver = objItem.Version
name = Replace (objItem.Caption,"Microsoft ","")
Next

Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM SoftwareLicensingService",,48)
For Each objItem in colItems
OEM = objItem.OA3xOriginalProductKey
Next
If OEM = "" Then
If CLng(Replace(ver,".","")) < 630000 Then
OEM = name & " not supported"
Else
OEM = "Key not present in firmware"
End If
End If

Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalID = WshShell.RegRead(key & "DigitalProductId")

ProductName = "Product Name: " & vbTab & WshShell.RegRead(Key & "ProductName") & vbNewLine
ProductID = "Product ID: " & vbTab & WshShell.RegRead(Key & "ProductID") & vbNewLine
ProductKey = "Installed Key: " & vbTab & ConvertToKey(DigitalID)
Product = ProductName & ProductID & ProductKey & vbNewLine & "OEM Key: " & vbTab & OEM


If vbYes = MsgBox(Product & vbNewLine & vbNewLine & "Please remember to do a full system backup! " & _
vbNewLine & "You'll thank yourself later :) " & vbNewLine & vbNewLine & "Save to a file?", vbYesNo + vbInformation, "Windows Key Information") then
Save Product
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

Save as .vbs.



 


Since you upgraded from win 7/8 to 10, your licence shouldn't expire, that is a very strange reaction. The version you have installed may have expired but the licence should still work.

where do you get that warning? At startup or on desktop?
Go here and click 1st link. Download the Upgrade assistant and run it to install latest version of win 10 - https://www.microsoft.com/en-au/software-download/windows10

Does your user have an email attached to it? If so, you might need to contact Microsoft and get them to fix activation once you on the latest version of Win 10. They only support the last 2 builds, so 1803 & 1709, they won't help you until you on one of them.

Try going here and logging in. See if any devices listed attached to the account - https://account.microsoft.com/
 
Is your laptop account tied to a Microsoft email account ? Have you logged into the account ?
If you have issues with Microsoft Account. Then I suggest you to run the Microsoft Account troubleshooter and check if it helps. Microsoft Account Troubleshooter scans a Windows 10 system for issues and repairs problems that are found in relation to your Microsoft Account.
http://download.microsoft.com/download/F/2/4/F24D0C03-4181-4E5B-A23B-5C3A6B5974E3/microsoftaccounts.diagcab

Have you gone to settings, accounts and looked there if you need to verify your identity ?


 


I second Belarc. It's a free download and will give you all the information inside your PC, including all your Key Codes. Takes about 15-30 seconds to run. It's so simple that even a retired State employee can do it ;-)
 
The window, no pun intended, for updating to win10 for free has closed. You now have to pay for it.
If you have a valid windows 7 or 8 license key you can do a clean install and usae it as your windows 10 license.
and yes I have tested no later than 2 weeks ago and its written on the Microsoft web site.

I did say VALID license... here is a short link I made : https://bit.ly/2mRzCtX why short link because Toms somehow mangled the long MS web address.

also I suggest Belarc, but for some reason under windows you have to launch it as admin or it will ask you to. the info is about on the 2nd or 3rd page
 


I thought that link might have been useful to me in a situation I'm handling for a customer but I might have guessed they'd hide behind something. The contact support link takes you to a chat box with a robot and the email link is a fake. Inspect the element and you'll see there is no e-mail link. It opens your default e-mail handler but doesn't aim at an address.

Typical Microsoft crap.


 
oh I never call MS myself, but the method does work. as for the links on the page I mentioned, under edge everything seems to come up just fine.
of course this is more off topic but most company that have that pop up "can I help you?", doesn't speak to a human, that is well known.
 
I've called MS support. Real nice guy spent 3Hrs on the phone, remotely linked to my pc, fixed all the Windows registration errors I had after first upgrade to 10pro from 7pro. It's working so flawlessly now I haven't even bothered to wipe it out and do a fresh install.

I figure it's his job, it's what he gets paid to do, so use him.

The only criticism I had about the whole ordeal was the amount of apologies he tendered. Every other sentence was an apology... Other than that, he was great. Very personable and clear spoken, even being, um, Malay?
 
Solution